Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Monad/LiftM.hs
module Monad where liftM :: Monad m => (a->b) -> (m a -> m b) liftM f = \a-> do a' <- a return (f a')
