git.iko.soy/elk
on master help sign in
Only print regions out the human readable way
70998eaEvan Czaplicki
src/Reporting/Region.hs−9
compare with master
unifiedsplit
@@ -38,15 +38,6 @@ merge (Region start _) (Region _ end) =
38
38
39toString :: Region -> String
39toString :: Region -> String
40toString (Region start end) =
40toString (Region start end) =
41− let posToString pos =
42− "(line " ++ show (line pos) ++
43− ", column " ++ show (column pos) ++ ")"
44− in
45− posToString start ++ " to " ++ posToString end
46−
47−
48−toPrettyString :: Region -> String
49−toPrettyString (Region start end) =
50 case line start == line end of
41 case line start == line end of
51 False ->
42 False ->
52 "between lines " ++ show (line start)
43 "between lines " ++ show (line start)