From 3dfadc17ec646d7936a74bc0dbb4d83537388bb6 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 10:33:09 -0700
Subject: [PATCH] fixy

---
 src/Rlp/Lex.x | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index e5a8805..848983f 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -176,17 +176,13 @@ initParseState s = ParseState
     }
 
 initAlexInput :: Text -> AlexInput
-initAlexInput (unconsBytes -> (b,s)) = AlexInput
+initAlexInput s = AlexInput
     { _aiPrevChar   = '\0'
     , _aiSource     = s
-    , _aiBytes      = b
+    , _aiBytes      = []
     , _aiPos        = (1,1)
     }
 
-unconsBytes :: Text -> ([Word8], Text)
-unconsBytes s = (encodeChar c, t) where
-    (c,t) = fromJust $ T.uncons s
-
 lexToken :: P (Located RlpToken)
 lexToken = do
     inp <- getInput