X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=parse.dcl;h=f2713f7513038dd5dd3878142120b8b987e06790;hb=e33962666f8af6a34432d57180eb322f4543eb78;hp=c5d2724366bd47ac1bb2e48c67dd335bdd809b24;hpb=fe40818bbc1d327f0adfbbbfe7ecfbe15d4eb053;p=cc1516.git

diff --git a/parse.dcl b/parse.dcl
index c5d2724..f2713f7 100644
--- a/parse.dcl
+++ b/parse.dcl
@@ -4,9 +4,10 @@ from Data.Either import :: Either
 from Data.Maybe import :: Maybe
 from StdString import class toString
 
-import lex
-from AST import :: AST
+from lex import :: LexerOutput, :: Error, :: Token, :: TokenValue, :: Pos
+from AST import :: AST, :: Expr
 
 :: ParserOutput :== Either Error AST
 
-parser :: LexerOutput -> ParserOutput
+parser :: [Token] -> ParserOutput
+makeStrExpr :: Pos [Char] -> Expr