Fix some warnings (ghc 8)

2016-02-14 12:35:57 +01:00
parent be6ba3f875
commit d3f66500ed
3 changed files with 12 additions and 14 deletions
--- a/Language/Haskell/GhcMod/Logger.hs
+++ b/Language/Haskell/GhcMod/Logger.hs
@@ -139,16 +139,14 @@ ppErrMsg err = do
        st = Gap.mkErrStyle' dflags unqual
 #if __GLASGOW_HASKELL__ >= 800
    return $ showPage dflags st msg
+ where
+   msg = pprLocErrMsg err
 #else
    let ext = showPage dflags st (errMsgExtraInfo err)
    m <- ppMsg st spn SevError msg
    return $ m ++ (if null ext then "" else "\n" ++ ext)
-#endif
   where
     spn = Gap.errorMsgSpan err
-#if __GLASGOW_HASKELL__ >= 800
-     msg = pprLocErrMsg err
-#else
     msg = errMsgShortDoc err
 #endif