diff --git a/Language/Haskell/GhcMod/.ErrMsg.hs.swp b/Language/Haskell/GhcMod/.ErrMsg.hs.swp
new file mode 100644
index 0000000..9ceabbc
Binary files /dev/null and b/Language/Haskell/GhcMod/.ErrMsg.hs.swp differ
diff --git a/Language/Haskell/GhcMod/ErrMsg.hs b/Language/Haskell/GhcMod/ErrMsg.hs
index 0755749..83c626f 100644
--- a/Language/Haskell/GhcMod/ErrMsg.hs
+++ b/Language/Haskell/GhcMod/ErrMsg.hs
@@ -52,16 +52,22 @@ errBagToStrList dflag ls = map (ppErrMsg dflag ls) . reverse . bagToList
 
 ----------------------------------------------------------------
 
+#if __GLASGOW_HASKELL__ >= 707
 ppErrMsg :: DynFlags -> LineSeparator -> ErrMsg -> String
 ppErrMsg dflag ls err = ppMsg spn SevError dflag ls msg ++ ext
    where
-#if __GLASGOW_HASKELL__ >= 707
      spn = errMsgSpan err
-#else
-     spn = head (errMsgSpans err)
-#endif
      msg = errMsgShortDoc err
      ext = showMsg dflag ls (errMsgExtraInfo err)
+#else
+ppErrMsg :: DynFlags -> LineSeparator -> ErrMsg -> String
+ppErrMsg dflag ls err = ppMsg spn SevError dflag ls msg ++ ext
+   where
+     spn = head (errMsgSpans err)
+     msg = errMsgShortDoc err
+     ext = showMsg dflag ls (errMsgExtraInfo err)
+#endif
+
 
 ppMsg :: SrcSpan -> Severity-> DynFlags -> LineSeparator -> SDoc -> String
 ppMsg spn sev dflag ls@(LineSeparator lsep) msg = prefix ++ cts ++ lsep