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

---
 parser/CC/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parser/CC')

diff --git a/parser/CC/Parser.hs b/parser/CC/Parser.hs
index d9e5b40..856a7b9 100644
--- a/parser/CC/Parser.hs
+++ b/parser/CC/Parser.hs
@@ -131,4 +131,4 @@ whitespace = void (many (char ' '))
 getPosition :: Parser SourcePos
 getPosition = do
     pos <- Text.Parsec.getPosition
-    return (SourcePos (sourceLine pos) (sourceColumn pos))
+    return (SourcePos (sourceLine pos - 1) (sourceColumn pos - 1))
-- 
cgit v1.2.3-70-g09d2