From a067356625105f50978443d3b0a0a5d8f6391184 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Fri, 24 Apr 2015 14:35:17 +0200 Subject: rare shit --- fp2/week2/mart/StdListMonad.icl | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 fp2/week2/mart/StdListMonad.icl (limited to 'fp2/week2/mart/StdListMonad.icl') diff --git a/fp2/week2/mart/StdListMonad.icl b/fp2/week2/mart/StdListMonad.icl new file mode 100644 index 0000000..b3b3d62 --- /dev/null +++ b/fp2/week2/mart/StdListMonad.icl @@ -0,0 +1,7 @@ +implementation module StdListMonad + +import StdMonad + +instance return [] where return x = [x] +instance >>= [] where >>= xs f = [y \\ x <- xs, y <- f x] +instance fail [] where fail = [] -- cgit v1.2.3