MicroHs-0.15.0.0: lib/Control/Monad/IO/Class.hs

module Control.Monad.IO.Class (MonadIO(..)) where
import qualified Prelude()
import Data.Char
import Control.Applicative
import Control.Monad
import System.IO
import {-# SOURCE #-} Data.Typeable

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

instance MonadIO IO where
  liftIO io = io