@@ -38,15 +38,6 @@ merge (Region start _) (Region _ end) =
3838
3939toString :: Region -> String
4040toString (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) =
5041 case line start == line end of
5142 False ->
5243 "between lines " ++ show (line start)