@@ -4,6 +4,7 @@ module Prelude.Monad
5import Builtins
5import Builtins
6import Prelude.List
6import Prelude.List
8%access public
9%access public
@@ -13,9 +14,6 @@ class Monad (m : Set -> Set) where
13 return : a -> m a
14 return : a -> m a
14 (>>=) : m a -> (a -> m b) -> m b
15 (>>=) : m a -> (a -> m b) -> m b
16−class Functor (f : Set -> Set) where
17− fmap : (a -> b) -> f a -> f b
19class Monad m => MonadPlus (m : Set -> Set) where
17class Monad m => MonadPlus (m : Set -> Set) where
20 mplus : m a -> m a -> m a
18 mplus : m a -> m a -> m a
21 mzero : m a
19 mzero : m a