implementation module parse import StdString import Data.Either import yard import lex parse :: LexerOutput -> ParserOutput parse (Left e) = Left ("Lexer error: " +++ e) parse (Right r) = Left "Parser not yet implemented"