X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FMonadUtils.hs;h=85d864231363c3e3ccd3dbc553922d0355731b5f;hb=582a99f2042ed92aa557b0823fd49ac01716cf26;hp=59bf509079e8ef22fe2a3a2249d86c145933f204;hpb=e07185eda0f37bd56ad876a2dfe73c956e432ffc;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
 
 ----------------------------------------------------------------------------------------