X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Fparse.dcl;h=62a0461c89c42021bedd72288bbdf7bb16bdd887;hb=798defc398c2e3df810cc8fd3dccf861103006a5;hp=abfb8b4443f327806a0cc795c40bc56e5d111994;hpb=1e30f02a706b29dae471b6526e7fd0e4bf5bf483;p=cc1516.git

diff --git a/src/parse.dcl b/src/parse.dcl
index abfb8b4..62a0461 100644
--- a/src/parse.dcl
+++ b/src/parse.dcl
@@ -10,7 +10,7 @@ import lex
 :: AST = AST [VarDecl] [FunDecl]
 :: VarDecl = VarDecl Type String Expr
 :: Type 
-	= TupleType Type Type
+	= TupleType (Type, Type)
 	| ListType Type
 	| IdType String
 	| IntType 
@@ -26,7 +26,7 @@ import lex
 	| BoolExpr Bool
 	| FunExpr FunCall
 	| EmptyListExpr
-	| TupleExpr Expr Expr
+	| TupleExpr (Expr, Expr)
 :: VarDef = VarDef String [FieldSelector]
 :: FieldSelector = FieldHd | FieldTl | FieldFst | FieldSnd
 :: Op1 = UnNegation | UnMinus