temporary constructor syntax

2023-12-06 10:29:20 -07:00
parent 22a27dca3b
commit 3a17eb473f
2 changed files with 8 additions and 0 deletions
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -36,6 +36,8 @@ import Data.Default.Class   (def)
      where           { Located _ _ _ TokenWhere }
      case            { Located _ _ _ TokenCase }
      of              { Located _ _ _ TokenOf }
+      ','             { Located _ _ _ TokenComma }
+      pack            { Located _ _ _ TokenPack } -- temp
      in              { Located _ _ _ TokenIn }
      litint          { Located _ _ _ (TokenLitInt $$) }
      varname         { Located _ _ _ (TokenVarName $$) }
@@ -119,8 +121,12 @@ Alter           : litint ParList '->' Expr      { Alter $1 $2 $4 }
 Expr1           :: { Expr }
 Expr1           : litint                        { IntE $1 }
                | Id                            { Var $1 }
+                | PackCon                       { $1 }
                | '(' Expr ')'                  { $2 }

+PackCon         :: { Expr }
+PackCon         : pack '{' litint ',' litint '}' { Con $3 $5 }
+
 Bindings        :: { [Binding] }
 Bindings        : Binding ';' Bindings          { $1 : $3 }
                | Binding ';'                   { [$1] }