Change "line" to "on line" in the string representation of one line SrcSpan
s
This commit is contained in:
parent
97ab6199bd
commit
7af7c1f98d
1 changed files with 1 additions and 1 deletions
|
@ -49,7 +49,7 @@ instance Show SrcSpan where
|
||||||
Span start end _ ->
|
Span start end _ ->
|
||||||
case line start == line end of
|
case line start == line end of
|
||||||
False -> "between lines " ++ show (line start) ++ " and " ++ show (line end)
|
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)
|
show (column start) ++ " to " ++ show (column end)
|
||||||
|
|
||||||
instance Show e => Show (Located e) where
|
instance Show e => Show (Located e) where
|
||||||
|
|
Loading…
Reference in a new issue