diff options
Diffstat (limited to 'lib/analyzer.ml')
| -rw-r--r-- | lib/analyzer.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/analyzer.ml b/lib/analyzer.ml index f0f8ca5..fe6ae90 100644 --- a/lib/analyzer.ml +++ b/lib/analyzer.ml @@ -23,14 +23,14 @@ let format_error : Format.formatter -> error -> unit = *) let parse : (module Qsp_syntax.S.Analyzer with type Location.repr = 'a) -> - Lexing.lexbuf -> + Sedlexing.lexbuf -> ('a, error) Result.t = fun (type a) (module S : Qsp_syntax.S.Analyzer with type Location.repr = a) -> let module Parser = Parser.Make (S) in let module IncrementalParser = Interpreter.Interpreter (Parser.MenhirInterpreter) in fun lexbuf -> - IncrementalParser.of_lexbuf lexbuf Lexer.token Parser.Incremental.main + IncrementalParser.of_lexbuf lexbuf UTF16.lexer Parser.Incremental.main |> Result.map_error (fun e -> let message = match e.Interpreter.code with |