shithub: MicroHs

ref: 0bb0428bca888fa76ac3b86512eab44ee199d99d
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