removing the last null charactors.
WARNING: prabably breaking backward compatibility.
This commit is contained in:
parent
324f9093a0
commit
102ae7654b
@ -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@(LineSeparator lsep) msg = prefix ++ cts -- ++ lsep
|
||||
where
|
||||
cts = showMsg dflag ls msg
|
||||
defaultPrefix
|
||||
@ -91,12 +91,6 @@ ppMsg spn sev dflag ls@(LineSeparator lsep) msg = prefix ++ cts ++ lsep
|
||||
----------------------------------------------------------------
|
||||
|
||||
showMsg :: DynFlags -> LineSeparator -> SDoc -> String
|
||||
showMsg dflag (LineSeparator [s]) sdoc = replaceNull $ showUnqualifiedPage dflag sdoc
|
||||
where
|
||||
replaceNull :: String -> String
|
||||
replaceNull [] = []
|
||||
replaceNull ('\n':xs) = s : replaceNull xs
|
||||
replaceNull (x:xs) = x : replaceNull xs
|
||||
showMsg dflag (LineSeparator lsep) sdoc = replaceNull $ showUnqualifiedPage dflag sdoc
|
||||
where
|
||||
replaceNull [] = []
|
||||
|
@ -133,7 +133,7 @@
|
||||
nil
|
||||
(lambda ()
|
||||
(insert (overlay-get (car ovls) 'ghc-file) "\n\n")
|
||||
(mapc (lambda (x) (insert x "\n")) errs))))))
|
||||
(mapc (lambda (x) (insert x "\n\n")) errs))))))
|
||||
|
||||
(defun ghc-check-overlay-at (p)
|
||||
(let ((ovls (overlays-at p)))
|
||||
|
Loading…
Reference in New Issue
Block a user