parse.icl

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