Change typesetting of errors a bit
commit2852a9a262a8b4d3db230827897a59202837d647
authorEvan Czaplicki <info@elm-lang.org>
dateTue 5 May 2015, 14:00 (11 years ago)
parentb4a568c
src/Reporting/Error.hs+3−3
@@ -43,16 +43,16 @@ toString location source (A.A region err) =
4343 )
4444
4545 usedSpace =
46− 4 + length tag + length location + 4
46+ 4 + length tag + 1 + length location
4747
4848 messageBar =
4949 "-- " ++ tag ++ " "
5050 ++ replicate (max 1 (80 - usedSpace)) '-'
51− ++ " " ++ location ++ " --"
51+ ++ " " ++ location
5252 in
5353 messageBar ++ "\n\n"
5454 ++ R.select region source ++ "\n"
55− ++ hint ++ "\n\n"
55+ ++ hint ++ "\n\n\n"
5656
5757
5858-- JSON