seems to work

2024-03-13 18:10:29 -06:00
parent 37e0c9308c
commit 257d12e532
4 changed files with 92 additions and 49 deletions
--- a/src/Rlp/AltParse.y
+++ b/src/Rlp/AltParse.y
@@ -128,7 +128,6 @@ Expr                :: { RlpExpr PsName }
                    : AppE                  { $1 }
                    | LetE                  { $1 }
                    | CaseE                 { $1 }
-                    | Expr1                 { $1 }
                    | LamE                  { $1 }

 LamE                :: { RlpExpr PsName }
@@ -155,6 +154,7 @@ Expr1               :: { RlpExpr PsName }
                    | litint                { $1 ^. to extract
                                                  . singular _TokenLitInt
                                                  . to (Finl . Core.LitF . Core.IntL) }
+                    | '(' Expr ')'          { $2 }

 AppE                :: { RlpExpr PsName }
                    : AppE Expr1            { Finl $ Core.AppF $1 $2 }