swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-30 20:06:19 +01:00
parent 83dfd701c0
commit 1f990be35c
1 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/offline.ml
View file

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