Change "line" to "on line" in the string representation of one line SrcSpans

This commit is contained in:
Evan Czaplicki 2013-08-06 15:43:31 -07:00
parent 97ab6199bd
commit 7af7c1f98d

View file

@ -49,7 +49,7 @@ instance Show SrcSpan where
Span start end _ ->
case line start == line end of
False -> "between lines " ++ show (line start) ++ " and " ++ show (line end)
True -> "line " ++ show (line end) ++ ", column " ++
True -> "on line " ++ show (line end) ++ ", column " ++
show (column start) ++ " to " ++ show (column end)
instance Show e => Show (Located e) where