shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add sequence_

--- a/lib/Control/Monad.hs

+++ b/lib/Control/Monad.hs

@@ -61,6 +61,9 @@

 sequence :: forall (m :: Type -> Type) a . Monad m => [m a] -> m [a]

 sequence = mapM id

+sequence_ :: forall (m :: Type -> Type) a . Monad m => [m a] -> m ()

+sequence_ = mapM_ id

+

 (=<<) :: forall (m :: Type -> Type) a b . Monad m => (a -> m b) -> m a -> m b

 (=<<) = flip (>>=)

-- 

⑨