shithub: MicroHs

ref: 822f04474a2e0b91cd30a9ab5e652ed2c84057ce
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