From aebffcc1c786e8cea15fff6f324bf71fc37cbb37 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Fri, 24 Apr 2015 09:10:46 +0200 Subject: updated practicum files --- files/practicum/StdMaybeMonad.icl | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 files/practicum/StdMaybeMonad.icl (limited to 'files/practicum/StdMaybeMonad.icl') diff --git a/files/practicum/StdMaybeMonad.icl b/files/practicum/StdMaybeMonad.icl new file mode 100644 index 0000000..1c6277d --- /dev/null +++ b/files/practicum/StdMaybeMonad.icl @@ -0,0 +1,10 @@ +implementation module StdMaybeMonad + +import StdMonad + +:: Maybe a = Nothing | Just a + +instance return Maybe where return x = Just x +instance >>= Maybe where >>= (Just x) f = f x + >>= Nothing f = Nothing +instance fail Maybe where fail = Nothing -- cgit v1.2.3