Fix for GHC 7.4

2014-08-15 11:00:48 +02:00 · 2014-08-15 11:00:48 +02:00 · 10042c6b0c
commit 10042c6b0c
parent 57db768ed0
1 changed files with 4 additions and 0 deletions
--- a/Language/Haskell/GhcMod/Logger.hs
+++ b/Language/Haskell/GhcMod/Logger.hs
@ -158,7 +158,11 @@ errAndWarnBagToStr :: IOish m => (String -> a) -> Bag ErrMsg -> Bag WarnMsg -> G
 errAndWarnBagToStr f err warn = do
    dflags <- G.getSessionDynFlags
    -- style <- toGhcModT getStyle
+#if __GLASGOW_HASKELL__ >= 706
    let style = mkErrStyle dflags neverQualify
+#else
+    let style = mkErrStyle neverQualify
+#endif
    ret <- convert' $ nub (errBagToStrList dflags style err ++ warnBagToStrList dflags style warn)
    return $ f ret