rlp TH

2024-02-04 19:19:37 -07:00
parent 0fc82f3fa8
commit b84992787c
6 changed files with 54 additions and 4 deletions
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -193,7 +193,10 @@ Con         :: { Located PsName }

 {

-parseRlpExprR = undefined
+parseRlpExprR :: (Monad m) => Text -> RLPCT m (RlpExpr RlpcPs)
+parseRlpExprR s = liftErrorful $ pToErrorful parseRlpExpr st
+    where
+        st = programInitState s

 parseRlpProgR :: (Monad m) => Text -> RLPCT m (RlpProgram RlpcPs)
 parseRlpProgR s = liftErrorful $ pToErrorful parseRlpProg st