Skip to content

Commit a767a07

Browse files
committed
comment about column numbering
1 parent 71917a7 commit a767a07

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

src/Language/Fortran/Util/Position.hs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,9 @@ instance Binary Position
2626
instance NFData Position
2727

2828
instance Show Position where
29+
-- Column number decrement by 1 as the lexer generates column numbers
30+
-- starting at position 1
31+
-- See PR https://github.com/camfort/fortran-src/pull/292
2932
show (Position _ c l _ _) = show l ++ ':' : show (c - 1)
3033

3134
initPosition :: Position

0 commit comments

Comments
 (0)