curry gotcha

[cc1516.git] / parse.dcl

diff --git a/parse.dcl b/parse.dcl
index c7d177c..f2713f7 100644 (file)
--- a/parse.dcl
+++ b/parse.dcl
@@ -1,8 +1,13 @@
 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, :: Expr
 
-parse :: LexerOutput -> ParserOutput
+:: ParserOutput :== Either Error AST
+
+parser :: [Token] -> ParserOutput
+makeStrExpr :: Pos [Char] -> Expr