From d4676fb36b96f811cbfa27fc43ce7eddaf9c38f6 Mon Sep 17 00:00:00 2001
From: Alan Zimmerman <alan.zimm@gmail.com>
Date: Thu, 30 Nov 2017 10:48:22 +0200
Subject: Try to fix GHC 7.4 build

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

(limited to 'tests')

diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs
index c2b752f..437e927 100644
--- a/tests/GhcSession.hs
+++ b/tests/GhcSession.hs
@@ -2,7 +2,7 @@
 module Main where
 
 import GHC
-#if __GLASGOW_HASKELL__ <= 704
+#if __GLASGOW_HASKELL__ <= 706
 import GhcMonad
 #endif
 import GHC.Paths (libdir)
@@ -129,6 +129,7 @@ compileModule ep opts = do
           setTargets ts'
           _ <- load LoadAllTargets
 
+#if __GLASGOW_HASKELL__ >= 706
           setContext $ case ep of
             ChLibEntrypoint ms ms' ->
                 map (IIModule . mkModuleName . unChModuleName) $ ms ++ ms'
@@ -136,8 +137,9 @@ compileModule ep opts = do
                 map (IIModule . mkModuleName . unChModuleName) $ ChModuleName "Main" : ms
             ChSetupEntrypoint      ->
                 map (IIModule . mkModuleName) ["Main"]
+#endif
 
-#if __GLASGOW_HASKELL__ <= 704
+#if __GLASGOW_HASKELL__ <= 706
           GhcMonad.liftIO $ print ExitSuccess
 #else
           liftIO $ print ExitSuccess
-- 
cgit v1.2.3