Commit 008e9981 authored by Thomas Schilling's avatar Thomas Schilling

Provide default MonadIO instance for IO.

parent 3b2cd7b3
......@@ -73,6 +73,7 @@ instance Applicative IO where
class Monad m => MonadIO m where
liftIO :: IO a -> m a
instance MonadIO IO where liftIO = id
#endif
----------------------------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment