aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/GhcSession.hs12
1 files changed, 7 insertions, 5 deletions
diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs
index 939fd7a..a1c164f 100644
--- a/tests/GhcSession.hs
+++ b/tests/GhcSession.hs
@@ -164,12 +164,14 @@ compileModule nb ep opts = do
map (IIModule . mkModuleName) ["Main"]
#endif
-#if __GLASGOW_HASKELL__ <= 706
- GhcMonad.liftIO $ print ExitSuccess
-#else
- liftIO $ print ExitSuccess
-#endif
+ liftIO'CH $ print ExitSuccess
return True
unChModuleName :: ChModuleName -> String
unChModuleName (ChModuleName mn) = mn
+
+#if __GLASGOW_HASKELL__ <= 706
+liftIO'CH = GhcMonad.liftIO
+#else
+liftIO'CH = liftIO
+#endif