Merge pull request #387 from Leonidas-from-XIV/backport-starts-with

Use `is_prefix` which is available in OCaml 4.10
tarides · May 1, 2023 · fee4252 · fee4252
2 parents 46b287f + 44fd36d
commit fee4252
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cli/lock.ml b/cli/lock.ml
@@ -541,7 +541,7 @@ let extract_source_config ~adjustment ~opam_monorepo_cwd ~opam_files
 
 let raw_cli_args () =
   match Array.to_list Sys.argv with
-  | _bin :: prefix :: args when String.starts_with ~prefix "lock" -> args
+  | _bin :: prefix :: args when Base.String.is_prefix ~prefix "lock" -> args
   | _ -> assert false
 
 let run (`Root root) (`Recurse_opam recurse) (`Build_only build_only)