infer under given context

2024-03-15 13:43:23 -06:00
parent 932fed8e5c
commit fcd784441a
3 changed files with 60 additions and 11 deletions
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -283,7 +283,7 @@ lexStream = fmap extract <$> lexStream'
 lexStream' :: P [Located RlpToken]
 lexStream' = lexToken >>= \case
    t@(Located _ TokenEOF) -> pure [t]
-    t        -> (t:) <$> lexStream'
+    t                      -> (t:) <$> lexStream'

 lexDebug :: (Located RlpToken -> P a) -> P a
 lexDebug k = do