From 44fd36dc5ed1ed2fa542a22b9f11a3c91c62a14a Mon Sep 17 00:00:00 2001
From: Marek Kubica <marek@tarides.com>
Date: Fri, 28 Apr 2023 20:51:36 +0200
Subject: [PATCH] Use `is_prefix` which is available in OCaml 4.10

---
 cli/lock.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cli/lock.ml b/cli/lock.ml
index cd001da1a..4ceb32fd7 100644
--- 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)