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 --- parser/CC/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'parser') 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