X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=parse.dcl;h=c5d2724366bd47ac1bb2e48c67dd335bdd809b24;hb=84eef96578e71866127e804bc265359c874aac68;hp=a3640fa954d3dd754c87634b5b2a9b90457c0a86;hpb=87fe087ef7e1ad9deff8a725faf1ebbefcb7e549;p=cc1516.git

diff --git a/parse.dcl b/parse.dcl
index a3640fa..c5d2724 100644
--- a/parse.dcl
+++ b/parse.dcl
@@ -1,9 +1,12 @@
 definition module parse
 
+from Data.Either import :: Either
+from Data.Maybe import :: Maybe
+from StdString import class toString
+
 import lex
+from AST import :: AST
 
-:: ParserOutput :== Either String AST
-:: AST = If | While //stub
-:: Error = ParseException
+:: ParserOutput :== Either Error AST
 
-parse :: LexerOutput -> ParserOutput
+parser :: LexerOutput -> ParserOutput