This commit is contained in:
parent
181abda0d0
commit
aa85b5b01d
1 changed files with 10 additions and 1 deletions
|
|
@ -59,7 +59,16 @@ let registry_file = "registry.rec"
|
||||||
let download () =
|
let download () =
|
||||||
let open Bos in
|
let open Bos in
|
||||||
let res =
|
let res =
|
||||||
OS.Cmd.run Cmd.(v "curl" % "-s" % "-o" % registry_file % "-X" % "GET" % url)
|
OS.Cmd.run
|
||||||
|
Cmd.(
|
||||||
|
v "curl"
|
||||||
|
% "--silent"
|
||||||
|
% "--show-error"
|
||||||
|
% "-o"
|
||||||
|
% registry_file
|
||||||
|
% "-X"
|
||||||
|
% "GET"
|
||||||
|
% url)
|
||||||
in
|
in
|
||||||
match res with
|
match res with
|
||||||
| Error (`Msg s) -> Fmt.failwith "download failure: %s" s
|
| Error (`Msg s) -> Fmt.failwith "download failure: %s" s
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue