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

remove double location in error message

This commit is contained in:
Jude Taylor 2016-02-06 10:02:01 -08:00
parent e417d095bf
commit ed867fea3e
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -137,13 +137,12 @@ ppErrMsg err = do
dflags <- asks gpeDynFlags
let unqual = errMsgContext err
st = Gap.mkErrStyle' dflags unqual
#if __GLASGOW_HASKELL__ < 800
#if __GLASGOW_HASKELL__ >= 800
return $ showPage dflags st msg
#else
let ext = showPage dflags st (errMsgExtraInfo err)
#endif
m <- ppMsg st spn SevError msg
return $ m
#if __GLASGOW_HASKELL__ < 800
++ (if null ext then "" else "\n" ++ ext)
return $ m ++ (if null ext then "" else "\n" ++ ext)
#endif
where
spn = Gap.errorMsgSpan err