(Right ast, [(p, t):xs]) = Left $ PositionalError p.line p.col (
"Unable to parse from: " +++ printToString t)
x = fst x
parseProgram :: Parser Token AST
(Right ast, [(p, t):xs]) = Left $ PositionalError p.line p.col (
"Unable to parse from: " +++ printToString t)
x = fst x
parseProgram :: Parser Token AST