diff --git a/Language/Haskell/GhcMod/ErrMsg.hs b/Language/Haskell/GhcMod/ErrMsg.hs
index bdb8874..f0ee794 100644
--- a/Language/Haskell/GhcMod/ErrMsg.hs
+++ b/Language/Haskell/GhcMod/ErrMsg.hs
@@ -76,7 +76,7 @@ ppErrMsg dflag ls err = ppMsg spn SevError dflag ls msg ++ ext
      ext = showMsg dflag ls (errMsgExtraInfo err)
 
 ppMsg :: SrcSpan -> Severity-> DynFlags -> LineSeparator -> SDoc -> String
-ppMsg spn sev dflag ls@(LineSeparator lsep) msg = prefix ++ cts -- ++ lsep
+ppMsg spn sev dflag ls msg = prefix ++ cts
   where
     cts  = showMsg dflag ls msg
     defaultPrefix