This commit is contained in:
swrup 2025-11-30 20:06:19 +01:00
parent 83dfd701c0
commit 1f990be35c

View file

@ -62,7 +62,6 @@ open Cmdliner.Term.Syntax
let setup_cmd =
let doc = "Generate offline master keys" in
let output =
let doc = "Output file for the generated private Eddsa key." in
Arg.(
value
& opt filepath "data/eddsa_master_offline"
@ -83,7 +82,6 @@ let download_cmd =
[ `S Manpage.s_description; `P "$(cmd) download /management/keys." ]
in
let output =
let doc = "File to save data to be signed." in
Arg.(value & opt filepath "future_keys.json" & info [ "o"; "output" ] ~doc)
in
Cmd.make (Cmd.info "download" ~version ~doc ~man)
@ -101,7 +99,6 @@ let upload_cmd =
[ `S Manpage.s_description; `P "$(cmd) upload /management/keys." ]
in
let input =
let doc = "Input file." in
Arg.(
value & opt filepath "master_signatures.json" & info [ "i"; "input" ] ~doc)
in
@ -117,11 +114,9 @@ let upload_cmd =
let sign_cmd =
let doc = "Sign FutureKeysResponse." in
let input =
let doc = "File with FutureKeysResponse data." in
Arg.(value & opt filepath "future_keys.json" & info [ "i"; "input" ] ~doc)
in
let output =
let doc = "File to save signature to." in
Arg.(
value
& opt filepath "master_signatures.json"