fix location

anoma · Dec 27, 2024 · 22c8138 · 22c8138
1 parent af04f95
commit 22c8138
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Juvix/Compiler/Concrete/Translation/ImportScanner/FlatParse.hs b/src/Juvix/Compiler/Concrete/Translation/ImportScanner/FlatParse.hs
@@ -50,8 +50,8 @@ scanner fp bs = do
         allFileLocs :: [FileLoc]
         allFileLocs =
           [ FileLoc
-              { _locLine = Pos (fromIntegral l),
-                _locCol = Pos (fromIntegral c),
+              { _locLine = Pos (1 + fromIntegral l),
+                _locCol = Pos (1 + fromIntegral c),
                 _locOffset = Pos (fromIntegral p)
               }
             | (FP.Pos p, (l, c)) <- zipExact importsPositions (posLineCols bs importsPositions)