aboutsummaryrefslogtreecommitdiff
path: root/utils/CC
diff options
context:
space:
mode:
authorTom Smeding <tom.smeding@gmail.com>2020-07-24 18:34:39 +0200
committerTom Smeding <tom.smeding@gmail.com>2020-07-24 19:14:02 +0200
commit50fe19860cf143de939671926118ba0cf8c9f35c (patch)
treefc6de748e66b7f54b90384e78228f9ff5d6a0363 /utils/CC
parent5cb19c0df3f838965c1100731f9118f28f50796f (diff)
Correct source range handling
Diffstat (limited to 'utils/CC')
-rw-r--r--utils/CC/Types.hs2
1 files changed, 1 insertions, 1 deletions
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