Fix older GHCs

2015-08-19 08:11:29 +02:00
parent 50ab2091d6
commit e360f7eb44
3 changed files with 13 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Logger.hs
+++ b/Language/Haskell/GhcMod/Logger.hs
@@ -134,7 +134,7 @@ ppErrMsg :: ErrMsg -> GmPprEnvM String
 ppErrMsg err = do
    dflags <- asks gpeDynFlags
    let unqual = errMsgContext err
-        st = mkErrStyle dflags unqual
+        st = Gap.mkErrStyle' dflags unqual
    let ext = showPage dflags st (errMsgExtraInfo err)
    m <- ppMsg st spn SevError msg
    return $ m ++ (if null ext then "" else "\n" ++ ext)