From 008e99819bdc12b2ebac66a99f7be2d5db16e5f9 Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Sun, 14 Sep 2008 16:42:45 +0000 Subject: [PATCH] Provide default MonadIO instance for IO. --- compiler/utils/MonadUtils.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/utils/MonadUtils.hs b/compiler/utils/MonadUtils.hs index 59bf509..85d8642 100644 --- a/compiler/utils/MonadUtils.hs +++ b/compiler/utils/MonadUtils.hs @@ -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 ---------------------------------------------------------------------------------------- -- 1.7.10.4