it's so over (whole-program inference again)

2024-03-28 10:59:51 -06:00
parent ddd1e7b931
commit fa2b2d6ed5
7 changed files with 107 additions and 67 deletions
--- a/src/Rlp/AltParse.y
+++ b/src/Rlp/AltParse.y
@@ -158,6 +158,7 @@ Expr1               :: { RlpExpr PsName }
                                                  . singular _TokenLitInt
                                                  . to (Finl . Core.LitF . Core.IntL) }
                    | '(' Expr ')'          { $2 }
+                    | ConE                  { $1 }

 AppE                :: { RlpExpr PsName }
                    : AppE Expr1            { Finl $ Core.AppF $1 $2 }
@@ -166,6 +167,9 @@ AppE                :: { RlpExpr PsName }
 VarE                :: { RlpExpr PsName }
                    : Var                   { Finl $ Core.VarF $1 }

+ConE                :: { RlpExpr PsName }
+                    : Con                   { Finl $ Core.VarF $1 }
+
 Pat1s               :: { [Pat PsName] }
                    : list0(Pat1)           { $1 }