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