This commit is contained in:
parent
1af3718b1e
commit
f1840ad9ac
2 changed files with 27 additions and 4 deletions
|
|
@ -9,9 +9,6 @@ let read_master_key_file filename =
|
|||
let* master_key = read_file filename in
|
||||
Crypto.EddsaPrivateKey.of_octets master_key
|
||||
|
||||
let base_url = Uri.of_string "http://localhost:3434/"
|
||||
let full_url path = Uri.with_path base_url path |> Uri.to_string
|
||||
|
||||
let download ~output =
|
||||
let open Bos in
|
||||
let uri = full_url "/management/keys/" in
|
||||
|
|
@ -135,3 +132,7 @@ let global_fees ~output ~master_key ~start_date ~end_date ~history_fee
|
|||
let* s = Api.encode Api.GlobalFees.jsont global_fees in
|
||||
let* () = write_file output s in
|
||||
Ok ()
|
||||
|
||||
[@@@ocaml.warning "-27"]
|
||||
|
||||
let enable_auditor ~output ~master_key ~auditor_url = assert false
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue