From 50fe19860cf143de939671926118ba0cf8c9f35c Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 24 Jul 2020 18:34:39 +0200 Subject: Correct source range handling --- utils/CC/Types.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'utils/CC/Types.hs') diff --git a/utils/CC/Types.hs b/utils/CC/Types.hs index dc1b0e5..b377045 100644 --- a/utils/CC/Types.hs +++ b/utils/CC/Types.hs @@ -24,7 +24,7 @@ data SourceRange = SourceRange SourcePos SourcePos instance Pretty SourceRange where pretty (SourceRange from@(SourcePos fromLine fromCol) to@(SourcePos toLine toCol)) | fromLine == toLine = - show (fromLine + 1) ++ ":" ++ show (fromCol + 1) ++ "-" ++ show (toCol + 1) + show (fromLine + 1) ++ ":" ++ show (fromCol + 1) ++ "-" ++ show toCol | otherwise = show from ++ "-" ++ show to -- cgit v1.2.3-70-g09d2