hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix for GHC 7.4

Browse Source
This commit is contained in:
Alejandro Serrano 2014-08-15 11:00:48 +02:00
parent 57db768ed0
commit 10042c6b0c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Language/Haskell/GhcMod/Logger.hs
View File

@ -158,7 +158,11 @@ errAndWarnBagToStr :: IOish m => (String -> a) -> Bag ErrMsg -> Bag WarnMsg -> G
errAndWarnBagToStr f err warn = do errAndWarnBagToStr f err warn = do
dflags <- G.getSessionDynFlags dflags <- G.getSessionDynFlags
-- style <- toGhcModT getStyle -- style <- toGhcModT getStyle
#if __GLASGOW_HASKELL__ >= 706
let style = mkErrStyle dflags neverQualify let style = mkErrStyle dflags neverQualify
#else
let style = mkErrStyle neverQualify
#endif
ret <- convert' $ nub (errBagToStrList dflags style err ++ warnBagToStrList dflags style warn) ret <- convert' $ nub (errBagToStrList dflags style err ++ warnBagToStrList dflags style warn)
return $ f ret return $ f ret