Fix remaining build errors for GHC 8

2016-05-19 18:25:05 +02:00
parent 4117e56eee
commit 27bacd52ec
6 changed files with 35 additions and 1 deletions
--- a/Language/Haskell/GhcMod/DynFlags.hs
+++ b/Language/Haskell/GhcMod/DynFlags.hs
@@ -16,7 +16,11 @@ import Prelude

 setEmptyLogger :: DynFlags -> DynFlags
 setEmptyLogger df =
+#if __GLASGOW_HASKELL__ >= 800
+    Gap.setLogAction df $ \_ _ _ _ _ _ -> return ()
+#else
    Gap.setLogAction df $ \_ _ _ _ _ -> return ()
+#endif

 setDebugLogger :: (String -> IO ()) -> DynFlags -> DynFlags
 setDebugLogger put df = do