We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 71917a7 commit a767a07Copy full SHA for a767a07
src/Language/Fortran/Util/Position.hs
@@ -26,6 +26,9 @@ instance Binary Position
26
instance NFData Position
27
28
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
32
show (Position _ c l _ _) = show l ++ ':' : show (c - 1)
33
34
initPosition :: Position
0 commit comments