1
2
3
4
5
6
7
8
9

module Control.Monad.IO.Class (
    MonadIO(..)
  ) where

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

instance MonadIO IO where
  liftIO = id