Skip to content

Commit d91704b

Browse files
authored
Merge pull request #180 from lefessan/z-2021-12-16-add-fields-for-generators
Fix 'drom install PACKAGE' to check that PACKAGE exists
2 parents 3bf9a02 + c7ebcf0 commit d91704b

File tree

1 file changed

+9
-2
lines changed

1 file changed

+9
-2
lines changed

src/drom_lib/commandInstall.ml

Lines changed: 9 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -19,9 +19,16 @@ let action ~args ~packages () =
1919

2020
let _p = Build.build ~args () in
2121
let y = args.arg_yes in
22+
let all_packages = Misc.list_opam_packages "." in
2223
let packages = match packages with
23-
| [] -> Misc.list_opam_packages "."
24-
| packages -> packages
24+
| [] -> all_packages
25+
| packages ->
26+
List.iter (fun p ->
27+
if not (List.mem p all_packages) then
28+
Error.raise "Package %s is not defined locally (among: %s)"
29+
p ( String.concat " " all_packages )
30+
) packages;
31+
packages
2532
in
2633
let overlay_dir = "_opam" // ".opam-switch" // "overlay" in
2734
let some_pinned = ref [] in

0 commit comments

Comments
 (0)