X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Fparse.dcl;h=e7d2a25e042ee50cff777cbcd57dc0be28eb490b;hb=9b257f4008624c0bdbb9821291f46e553e2f0f91;hp=3f42eda5effdfebccc321bdfb277253888c3a852;hpb=b4636110ab65f233ed40d4390b62c7799df3c949;p=cc1516.git

diff --git a/src/parse.dcl b/src/parse.dcl
index 3f42eda..e7d2a25 100644
--- a/src/parse.dcl
+++ b/src/parse.dcl
@@ -25,6 +25,7 @@ import lex
 	| IntExpr Int
 	| CharExpr Char
 	| BoolExpr Bool
+	| FunExpr String [Expr]
 	| EmptyListExpr
 	| TupleExpr Expr Expr
 
@@ -37,4 +38,6 @@ import lex
 
 :: FunDecl = Stub
 
-parse :: LexerOutput -> ParserOutput
+instance toString AST
+
+parser :: LexerOutput -> ParserOutput