Use unit

purescript · Jun 13, 2014 · 1c28012 · 1c28012
1 parent a0abf71
commit 1c28012
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/README.md b/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
diff --git a/src/Control/Monad.purs b/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