Add MonadPlus

Author: garyb

README.md

@@ -69,6 +69,18 @@
     when :: forall m. (Monad m) => Boolean -> m Unit -> m Unit
 
 
+## Module Control.MonadPlus
+
+### Type Classes
+
+    class (Monad m, Alternative m) <= MonadPlus m where
+
+
+### Values
+
+    guard :: forall m. (MonadPlus m) => Boolean -> m Unit
+
+
 ## Module Control.Plus
 
 ### Type Classes

src/Control/MonadPlus.purs

@@ -0,0 +1,10 @@
+module Control.MonadPlus where
+
+import Control.Alternative
+import Control.Plus
+
+class (Monad m, Alternative m) <= MonadPlus m
+
+guard :: forall m. (MonadPlus m) => Boolean -> m Unit
+guard true = return unit
+guard false = empty