/usr/web/sources/contrib/fernan/nhc98/src/prelude/Monad/LiftM2.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Monad/LiftM2.hs


module Monad where

liftM2      :: Monad m => (a->b->c) -> (m a -> m b -> m c)
liftM2 f     = \a b -> do a' <- a
                          b' <- b
                          return (f a' b')

(Return to Plan 9 Home Page)