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')
