Misc: upgrade sedlex

ocsigen · Nov 1, 2024 · 4e12aea · 4e12aea
1 parent 450ddbb
commit 4e12aea
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/compiler/lib/flow_lexer.ml b/compiler/lib/flow_lexer.ml
@@ -832,9 +832,9 @@ let backquote env lexbuf =
 
 let wrap f =
   let f env =
-    let start, _ = Sedlexing.lexing_positions env.Lex_env.lex_lb in
+    let start = Sedlexing.lexing_position_start env.Lex_env.lex_lb in
     let t = f env env.Lex_env.lex_lb in
-    let _, stop = Sedlexing.lexing_positions env.Lex_env.lex_lb in
+    let stop = Sedlexing.lexing_position_curr env.Lex_env.lex_lb in
     t, Loc.create ~last_line:(Loc.line_end' !(env.lex_last_loc)) start stop
   in
   let rec helper comments env =

diff --git a/compiler/lib/parse_js.ml b/compiler/lib/parse_js.ml
@@ -85,7 +85,7 @@ end = struct
     Option.iter filename ~f:(Sedlexing.set_filename l);
     create ?report_error l
 
-  let curr_pos lexbuf = snd (Sedlexing.lexing_positions lexbuf.l)
+  let curr_pos lexbuf = Sedlexing.lexing_position_curr lexbuf.l
 
   let report_errors t res =
     match Flow_lexer.Lex_result.errors res with

diff --git a/dune-project b/dune-project
@@ -24,7 +24,7 @@
   (ppxlib (>= 0.15.0))
   (re :with-test)
   (cmdliner (>= 1.1.0))
-  (sedlex (>= 2.3))
+  (sedlex (>= 3.3))
   (qcheck :with-test)
   menhir
   menhirLib

diff --git a/js_of_ocaml-compiler.opam b/js_of_ocaml-compiler.opam
@@ -19,7 +19,7 @@ depends: [
   "ppxlib" {>= "0.15.0"}
   "re" {with-test}
   "cmdliner" {>= "1.1.0"}
-  "sedlex" {>= "2.3"}
+  "sedlex" {>= "3.3"}
   "qcheck" {with-test}
   "menhir"
   "menhirLib"