From 40f7b4c7398db2b832b71e3dfb8afb53116fad51 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Wed, 27 Sep 2023 13:31:14 +0200
Subject: Switched to sedlex instead of ocamllex

---
 lib/analyzer.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/analyzer.ml')

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
-- 
cgit v1.2.3