Fix crash when prefix of "lock" subcommand is used

tarides · Apr 13, 2023 · cf47ba2 · cf47ba2
1 parent df43741
commit cf47ba2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/CHANGES.md b/CHANGES.md
@@ -24,6 +24,9 @@
 - Fix a failure when using opam-monorepo with an opam 2.2 root
   (#379, @kit-ty-kate)
 
+- Fix assertion failure when prefix of "lock" subcommand is used (#381,
+  @gridbugs)
+
 ### Removed
 
 ### Security

diff --git a/cli/lock.ml b/cli/lock.ml
@@ -515,7 +515,7 @@ let extract_source_config ~adjustment ~opam_monorepo_cwd ~opam_files
 
 let raw_cli_args () =
   match Array.to_list Sys.argv with
-  | _bin :: "lock" :: args -> args
+  | _bin :: prefix :: args when String.starts_with ~prefix "lock" -> args
   | _ -> assert false
 
 let run (`Root root) (`Recurse_opam recurse) (`Build_only build_only)