From caf697acd1ee77877b7cbe1c3895c47cd6c2df4c Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Thu, 23 Apr 2015 15:10:52 +0200 Subject: started with week2 --- fp2/week2/mart/StdMonad.dcl | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 fp2/week2/mart/StdMonad.dcl (limited to 'fp2/week2/mart/StdMonad.dcl') diff --git a/fp2/week2/mart/StdMonad.dcl b/fp2/week2/mart/StdMonad.dcl new file mode 100644 index 0000000..cd1c654 --- /dev/null +++ b/fp2/week2/mart/StdMonad.dcl @@ -0,0 +1,8 @@ +definition module StdMonad + +class return c :: a -> c a +class (>>=) infix 0 c :: (c a) (a -> c b) -> c b +class fail c :: c a + +class Monad c | return, >>= c +class MonadFail c | Monad, fail c -- cgit v1.2.3