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