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

rc #13

Merged
crumbtoo merged 196 commits from dev into main 2024-02-13 13:22:23 -07:00
Conversation 0 Commits 196 Files Changed 55 +2 -6
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 3dfadc17ec - Show all commits

8
src/Rlp/Lex.x
View File

@@ -176,17 +176,13 @@ initParseState s = ParseState
} }
initAlexInput :: Text -> AlexInput initAlexInput :: Text -> AlexInput
initAlexInput (unconsBytes -> (b,s)) = AlexInput initAlexInput s = AlexInput
{ _aiPrevChar = '\0' { _aiPrevChar = '\0'
, _aiSource = s , _aiSource = s
, _aiBytes = b , _aiBytes = []
, _aiPos = (1,1) , _aiPos = (1,1)
} }
unconsBytes :: Text -> ([Word8], Text)
unconsBytes s = (encodeChar c, t) where
(c,t) = fromJust $ T.uncons s
lexToken :: P (Located RlpToken) lexToken :: P (Located RlpToken)
lexToken = do lexToken = do
inp <- getInput inp <- getInput