From 4f66e71b9a729e4738a071b5eef62d00bd73aefc Mon Sep 17 00:00:00 2001 From: crumbtoo Date: Mon, 15 Jan 2024 11:05:10 -0700 Subject: [PATCH] FIX REAL --- src/Rlp/Lex.x | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x index 848983f..18592f8 100644 --- a/src/Rlp/Lex.x +++ b/src/Rlp/Lex.x @@ -115,7 +115,7 @@ alexGetByte inp = case inp ^. aiBytes of & aiPrevChar .~ c -- update the position & aiPos %~ \ (ln,col) -> - if (inp ^. aiPrevChar) == '\n' + if c == '\n' then (ln+1,1) else (ln,col+1) pure (b, inp')