From 3325e37439aed70ad5b0bd23d5a1e098d4a6ca7f Mon Sep 17 00:00:00 2001
From: Alan Zimmerman <alan.zimm@gmail.com>
Date: Thu, 30 Nov 2017 10:03:40 +0200
Subject: Disambiguate liftIO for GHC 7.4

---
 tests/GhcSession.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests')

diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs
index b30d2c7..c05ba3c 100644
--- a/tests/GhcSession.hs
+++ b/tests/GhcSession.hs
@@ -133,7 +133,11 @@ compileModule ep opts = do
             ChSetupEntrypoint      ->
                 map (IIModule . mkModuleName) ["Main"]
 
+#if __GLASGOW_HASKELL__ <= 704
+          GhcMonad.liftIO $ print ExitSuccess
+#else
           liftIO $ print ExitSuccess
+#endif
           return True
 
 unChModuleName :: ChModuleName -> String
-- 
cgit v1.2.3