small fix

[cc1516.git] / src / parse.dcl

diff --git a/src/parse.dcl b/src/parse.dcl
index e7d2a25..8a368ba 100644 (file)
--- a/src/parse.dcl
+++ b/src/parse.dcl
@@ -20,7 +20,7 @@ import lex
 
 :: Expr 
        = VarExpr String (Maybe FieldSelector)
-       | Op2Expr Expr Op2 Expr //TODO, iets met associativiteit wat niet weet hoe
+       | Op2Expr Expr Op2 Expr
        | Op1Expr Op1 Expr
        | IntExpr Int
        | CharExpr Char
@@ -36,7 +36,9 @@ import lex
 
 //TODO
 
-:: FunDecl = Stub
+:: FunDecl = FunDecl String [String] FunType [VarDecl] [Stmt]
+:: FunType = Stub
+:: Stmt = Stubbel
 
 instance toString AST