|
|
@ -28,7 +28,7 @@ let () = |
|
|
|
let init_opam_repo = |
|
|
|
Bos.Cmd.( |
|
|
|
v "opam" % "init" % "--bare" % "--no-setup" % "--root" % opam_root |
|
|
|
% instance % Sys.argv.(1)) |
|
|
|
% instance % Sys.argv.(1) ) |
|
|
|
in |
|
|
|
|
|
|
|
Format.eprintf "creating opam switch... "; |
|
|
@ -45,7 +45,7 @@ let () = |
|
|
|
let empty_switch = |
|
|
|
Bos.Cmd.( |
|
|
|
v "opam" % "switch" % "create" % "--empty" % "--root" % opam_root |
|
|
|
% "empty") |
|
|
|
% "empty" ) |
|
|
|
in |
|
|
|
|
|
|
|
Format.eprintf "creating empty switch... "; |
|
|
@ -62,7 +62,7 @@ let () = |
|
|
|
let list_packages = |
|
|
|
Bos.Cmd.( |
|
|
|
v "opam" % "list" % "--all" % "--no-switch" % "--repos" % instance |
|
|
|
% "--normalise" % "--color" % "never" % "--short" % "--root" % opam_root) |
|
|
|
% "--normalise" % "--color" % "never" % "--short" % "--root" % opam_root ) |
|
|
|
in |
|
|
|
|
|
|
|
let packages = |
|
|
@ -99,7 +99,7 @@ let () = |
|
|
|
Bos.Cmd.( |
|
|
|
v "opam" % "list" % "--all" % "--no-switch" % "--repos" % instance |
|
|
|
% "--normalise" % "--color" % "never" % "--short" % "--root" % opam_root |
|
|
|
% "--has-flag=conf") |
|
|
|
% "--has-flag=conf" ) |
|
|
|
in |
|
|
|
|
|
|
|
let conf_packages = |
|
|
@ -118,7 +118,7 @@ let () = |
|
|
|
Bos.Cmd.( |
|
|
|
v "opam" % "list" % "--all" % "--no-switch" % "--repos" % instance |
|
|
|
% "--normalise" % "--color" % "never" % "--short" % "--root" % opam_root |
|
|
|
% "--has-flag=compiler") |
|
|
|
% "--has-flag=compiler" ) |
|
|
|
in |
|
|
|
|
|
|
|
let compiler_packages = |
|
|
@ -153,7 +153,7 @@ let () = |
|
|
|
Bos.OS.Cmd.run_status ~quiet:true |
|
|
|
Bos.Cmd.( |
|
|
|
v "opam" % "source" % "--root" % opam_root % "--dev-repo" % package |
|
|
|
% "--dir" % download_dir_s) |
|
|
|
% "--dir" % download_dir_s ) |
|
|
|
with |
|
|
|
| Ok (`Exited 0) -> |
|
|
|
Format.eprintf "done@."; |
|
|
|