comment about column numbering

camfort · Sep 30, 2024 · a767a07 · a767a07
1 parent 71917a7
commit a767a07
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Language/Fortran/Util/Position.hs b/src/Language/Fortran/Util/Position.hs
@@ -26,6 +26,9 @@ instance Binary Position
 instance NFData Position
 
 instance Show Position where
+  -- Column number decrement by 1 as the lexer generates column numbers
+  -- starting at position 1
+  -- See PR https://github.com/camfort/fortran-src/pull/292
   show (Position _ c l _ _) = show l ++ ':' : show (c - 1)
 
 initPosition :: Position