parse.icl

   1 implementation module parse
   2
   3 import StdString
   4
   5 import lex
   6
   7 parse :: LexerOutput -> ParserOutput
   8 parse (Left e) = Left ("Lexer error: " +++ e)
   9 parse (Right r) = Left "Parser not yet implemented"