From a767a07913602fdb8a813787a82a9878035d3fcc Mon Sep 17 00:00:00 2001 From: Dominic Orchard Date: Mon, 30 Sep 2024 11:59:03 -0400 Subject: [PATCH] comment about column numbering --- src/Language/Fortran/Util/Position.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Language/Fortran/Util/Position.hs b/src/Language/Fortran/Util/Position.hs index 083f0e57..af2b3dc3 100644 --- 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