foundation-0.0.3: Foundation/Monad/MonadIO.hs

{-# LANGUAGE CPP #-}
module Foundation.Monad.MonadIO
    ( MonadIO(..)
    ) where

#if MIN_VERSION_base(4,9,0)
import Control.Monad.IO.Class
#else
import Foundation.Internal.Base

-- | Monads in which 'IO' computations may be embedded.
class Monad m => MonadIO m where
    -- | Lift a computation from the 'IO' monad.
    liftIO :: IO a -> m a

instance MonadIO IO where
    liftIO io = io

#endif