From 50fe19860cf143de939671926118ba0cf8c9f35c Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
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')

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