msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

FIX REAL

Browse Source
This commit is contained in:
crumbtoo
2024-01-15 11:05:10 -07:00
parent 3dfadc17ec
commit 4f66e71b9a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Rlp/Lex.x
View File

@@ -115,7 +115,7 @@ alexGetByte inp = case inp ^. aiBytes of
& aiPrevChar .~ c & aiPrevChar .~ c
-- update the position -- update the position
& aiPos %~ \ (ln,col) -> & aiPos %~ \ (ln,col) ->
if (inp ^. aiPrevChar) == '\n' if c == '\n'
then (ln+1,1) then (ln+1,1)
else (ln,col+1) else (ln,col+1)
pure (b, inp') pure (b, inp')