shithub: MicroHs

ref: dd6d15f672fd622dbca510bd562d66c629bca6a3
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