ref: 2542d34a72bd5109733027d863d23458a5699d7d
dir: /src/CompatIO.hs/
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 fmap :: (a -> b) -> IO a -> IO b fmap = P.fmap