shithub: MicroHs

ref: 8ca938fdab80f32b770ce009c2fdb441a41a0109
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

fail        :: forall a . String -> IO a
fail s       = error s