Fix off-by-one error in multiline regions
commit9dde1e39d78587199dc5c701c9a96479a8e01b71
authorEvan Czaplicki <info@elm-lang.org>
dateTue 5 May 2015, 18:43 (12 years ago)
parent91d07b2
src/Reporting/Region.hs+2−1
@@ -79,7 +79,8 @@ select (Region start end) source =
7979 firstLine : rest ->
8080 let
8181 filteredFirstLine =
82− replicate (column start) ' ' ++ drop (column start) firstLine
82+ replicate (column start - 1) ' '
83+ ++ drop (column start - 1) firstLine
8384
8485 filteredLastLine =
8586 take (column end) (last rest)