git.iko.soy/elk
on master help sign in
Add appropriate whitespace after all errors
ccf38b2Evan Czaplicki
compiler/src/Reporting/Report.hs+1−1
compare with master
unifiedsplit
@@ -33,6 +33,7 @@ toDoc filePath (Report title _ _ message) =
33 messageBar title filePath
33 messageBar title filePath
34 <> hardline <> hardline <>
34 <> hardline <> hardline <>
35 message
35 message
36+ <> hardline <> hardline
36
37
37
38
38messageBar :: String -> FilePath -> Doc
39messageBar :: String -> FilePath -> Doc
@@ -58,7 +59,6 @@ toCodeSnippet source region highlight (preHint, postHint) =
58 Code.render source region highlight
59 Code.render source region highlight
59 <> hardline <>
60 <> hardline <>
60 postHint
61 postHint
61− <> hardline <> hardline
62
62
63
63
64toCodePair :: Code.Source -> R.Region -> R.Region -> (Doc, Doc) -> (Doc, Doc, Doc) -> Doc
64toCodePair :: Code.Source -> R.Region -> R.Region -> (Doc, Doc) -> (Doc, Doc, Doc) -> Doc