shithub: MicroHs

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