shithub: MicroHs

ref: d5fed2d80ccb009da7e9d95d0cc3c18d191d4503
dir: /lib/Control/Monad/IO/Class.hs/

View raw version 
module Control.Monad.IO.Class (MonadIO(..)) where
import Prelude()
import Data.Char
import Control.Applicative
import Control.Monad
import System.IO

class (Monad m) => MonadIO m where
  liftIO :: IO a -> m a

instance MonadIO IO where
  liftIO io = io