about summary refs log tree commit diff
path: root/src/Syntax.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Syntax.hs')
-rw-r--r--src/Syntax.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Syntax.hs b/src/Syntax.hs
index bbd8cbe..f5d9c2d 100644
--- a/src/Syntax.hs
+++ b/src/Syntax.hs
@@ -17,7 +17,7 @@ data Expr = Var Idnt
           | Mult Expr Expr
           | Neg Expr
           | Deref Expr
-          | Match Expr [(Idnt, Expr)]
+          | Match Expr [(Idnt, Idnt, Expr)] -- Variant,Binder, Expression
           | Proj Idnt Expr 
            deriving(Eq,Show)
 data Com = Skip
@@ -26,9 +26,9 @@ data Com = Skip
          | While Expr Com
          | Asgn Idnt Expr
          | Decl Idnt Expr Com
-         | Alloc Idnt Expr
+         | Alloc Idnt Expr Com
          | Save Idnt Expr
-         | SMatch Expr [(Idnt, Expr)]
+         | SMatch Expr [(Idnt, Idnt, Com)]
            deriving(Eq,Show)
          
 data FuncDecl = Func Idnt [Idnt] [(Idnt,Expr)] Com Expr