Use unit

Author: garyb

README.md

@@ -42,6 +42,6 @@
 
     replicateM :: forall m a. (Monad m) => Number -> m a -> m [a]
 
-    unless :: forall m. (Monad m) => Boolean -> m {  } -> m {  }
+    unless :: forall m. (Monad m) => Boolean -> m Unit -> m Unit
 
-    when :: forall m. (Monad m) => Boolean -> m {  } -> m {  }
+    when :: forall m. (Monad m) => Boolean -> m Unit -> m Unit

src/Control/Monad.purs

@@ -11,10 +11,10 @@ foldM :: forall m a b. (Monad m) => (a -> b -> m a) -> a -> [b] -> m a
 foldM _ a [] = return a
 foldM f a (b:bs) = f a b >>= \a' -> foldM f a' bs
 
-when :: forall m. (Monad m) => Boolean -> m {} -> m {}
+when :: forall m. (Monad m) => Boolean -> m Unit -> m Unit
 when true m = m
-when false _ = return {}
+when false _ = return unit
 
-unless :: forall m. (Monad m) => Boolean -> m {} -> m {}
+unless :: forall m. (Monad m) => Boolean -> m Unit -> m Unit
 unless false m = m
-unless true _ = return {}
+unless true _ = return unit