Fix for GHC 7.4
This commit is contained in:
parent
57db768ed0
commit
10042c6b0c
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user