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

Merge commit '4f66e71' into happy-frontend

Browse Source
This commit is contained in:
crumbtoo
2024-01-15 11:06:37 -07:00
parent bdf74ac6c9 4f66e71b9a
commit 9a4f24ec10
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

@@ -133,7 +133,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')