module M : Definitionval feed :
(char, BatCharParser.position) BatParserCo.Source.t ->
(token, BatCharParser.position) BatParserCo.Source.tval start : (char, unit, BatCharParser.position) BatParserCo.tval ident : (char, string, BatCharParser.position) BatParserCo.tval kwd : (char, string, BatCharParser.position) BatParserCo.tval identifier : string -> (char, unit, BatCharParser.position) BatParserCo.tval keyword : string -> (char, unit, BatCharParser.position) BatParserCo.tval char_literal : (char, char, BatCharParser.position) BatParserCo.tval string_literal : (char, string, BatCharParser.position) BatParserCo.tval integer : (char, int, BatCharParser.position) BatParserCo.tval float : (char, float, BatCharParser.position) BatParserCo.tval number :
(char, [ `Float of float | `Integer of int ], BatCharParser.position)
BatParserCo.tval char : char -> (char, char, BatCharParser.position) BatParserCo.tval string : string -> (char, string, BatCharParser.position) BatParserCo.tval line_comment : (char, unit, BatCharParser.position) BatParserCo.tval multiline_comment : (char, unit, BatCharParser.position) BatParserCo.tval comment : (char, unit, BatCharParser.position) BatParserCo.tval whitespaces : (char, unit, BatCharParser.position) BatParserCo.t