X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=parse.icl;h=a507ab3ae662f53dc51067f7e97caabcfc74b480;hb=ef60df23f759937906b8a36bce4485681c35e903;hp=bdb6a77bb343e5277b5d8d8486f4d46c01eff8ba;hpb=312e268e5861db8228099b57cde2b20edd31be8c;p=cc1516.git

diff --git a/parse.icl b/parse.icl
index bdb6a77..a507ab3 100644
--- a/parse.icl
+++ b/parse.icl
@@ -18,9 +18,8 @@ import yard
 import lex
 import AST
 
-parser :: LexerOutput -> ParserOutput
-parser (Left e) = Left e
-parser (Right r) = case runParser parseProgram r of
+parser :: [Token] -> ParserOutput
+parser ts = case runParser parseProgram ts of
 	(Right ast, [(p, t):xs]) = Left $ PositionalError p.line p.col (
 		"Unable to parse from: " +++ printToString t)
 	x = fst x