Fix for lexer colums

This commit is contained in:
Yupanqui 2022-03-02 17:40:40 +01:00 committed by Steve Dunham
parent ece1198074
commit 93b0f9c7b8

View File

@ -147,7 +147,7 @@ tokenise pred line col acc tmap str
getCols : List Char -> Int -> Int
getCols x c
= case span (/= '\n') (reverse x) of
= case span (/= '\n') x of
(incol, []) => c + cast (length incol)
(incol, _) => cast (length incol)