Merge pull request purescript#455 from pelotom/patch-1

paf31 · paf31 · commit 4c7733cbb00d · 2014-06-28T13:56:26.000-07:00
Add `void` function
diff --git a/prelude/prelude.purs b/prelude/prelude.purs
@@ -7,7 +7,7 @@ module Prelude
   , ($), (#)
   , (:), cons
   , Show, show
-  , Functor, (<$>)
+  , Functor, (<$>), void
   , Apply, (<*>)
   , Applicative, pure, liftA1
   , Alternative, empty, (<|>)
@@ -116,6 +116,9 @@ module Prelude
   class Functor f where
     (<$>) :: forall a b. (a -> b) -> f a -> f b
 
+  void :: forall f a. (Functor f) => f a -> f Unit
+  void fa = const unit <$> fa
+
   infixl 4 <*>
 
   class (Functor f) <= Apply f where
