Mesabloo/diagnose
1
1
Fork 0
mirror of https://github.com/Mesabloo/diagnose.git synced 2024-09-11 11:26:56 +03:00
Code Issues Projects Releases Wiki Activity

Report: better render multiline error messages

Browse Source
This commit is contained in:
Mesabloo 2020-09-11 12:44:17 +02:00
parent fe1f0ee0cc
commit e977c7ba6a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Text/Diagnose/Report.hs
View File

@ -88,7 +88,7 @@ hint = Hint
prettyReport :: (Foldable s, PrettyText (s a), PrettyText m) => Files s a -> Report m -> Doc
prettyReport files (Report kind msg markers hints) =
let (color, margin, sev) = prettyKind kind
in color (bold sev) <> colon <+> prettyText msg <$>
in color (bold sev) <> colon <+> align (smartPretty msg) <$>
mconcat (replicate (margin - 2) space) <> text "In" <> colon <+>
prettyCodeWithMarkers files markers color <$> line <>
prettyHints hints