X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FMonadUtils.hs;fp=compiler%2Futils%2FMonadUtils.hs;h=85d864231363c3e3ccd3dbc553922d0355731b5f;hb=008e99819bdc12b2ebac66a99f7be2d5db16e5f9;hp=59bf509079e8ef22fe2a3a2249d86c145933f204;hpb=3b2cd7b311da1e7056ef66b42efc2571add5a8aa;p=ghc-hetmet.git

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
 
 ----------------------------------------------------------------------------------------