X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=parse.dcl;h=111540c5e5f617bf5197a86b5ae23822b0996201;hb=efc7d1fda30d97e2479e0854edbf609229c5bc98;hp=c7d177ccd7c2aa31b6c7243f9c8f36d61137d08c;hpb=953019d8255b9779d67fb1cb6c8946f589a24936;p=cc1516.git

diff --git a/parse.dcl b/parse.dcl
index c7d177c..111540c 100644
--- a/parse.dcl
+++ b/parse.dcl
@@ -1,8 +1,12 @@
 definition module parse
 
-import lex
+from Data.Either import :: Either
+from Data.Maybe import :: Maybe
+from StdString import class toString
 
-:: ParserOutput :== Either String AST
-:: AST = If | While //stub
+from lex import :: LexerOutput, :: Error, :: Token, :: TokenValue, :: Pos
+from AST import :: AST
 
-parse :: LexerOutput -> ParserOutput
+:: ParserOutput :== Either Error AST
+
+parser :: LexerOutput -> ParserOutput