From e23f9cc73b7216063c1b014e99a848871897e142 Mon Sep 17 00:00:00 2001 From: Alan Zimmerman Date: Thu, 30 Nov 2017 10:21:08 +0200 Subject: Use defaultLogAction for GHC 7.4 --- tests/GhcSession.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs index c05ba3c..c2b752f 100644 --- a/tests/GhcSession.hs +++ b/tests/GhcSession.hs @@ -100,7 +100,11 @@ compileModule ep opts = do E.handle (\(ec :: ExitCode) -> print ec >> return False) $ do +#if __GLASGOW_HASKELL__ <= 704 + defaultErrorHandler defaultLogAction $ do +#else defaultErrorHandler defaultFatalMessager defaultFlushOut $ do +#endif runGhc (Just libdir) $ do -- cgit v1.2.3