shithub: MicroHs

ref: aa1337f335e94ae3c83c59dea1e8a62a1be59fea
dir: /src/CompatIO.hs/

View raw version 
module CompatIO where
import Prelude hiding (Monad(..))
import qualified Prelude as P
import qualified Control.Monad as M

(>>=) :: IO a -> (a -> IO b) -> IO b
(>>=) = (P.>>=)

(>>) :: IO a -> IO b -> IO b
(>>) = (P.>>)

return :: a -> IO a
return = P.return

when :: Bool -> IO () -> IO ()
when = M.when