Move IO out of Tool_tkeygen

src/tool/tool_cmdline.ml

@@ -111,6 +111,7 @@ module Tkeygen : CMDLINER_MODULE = struct
       end in
       let module R = (val make (module P : PARAMS) : S) in
       let kp = R.trustee_keygen () in
+      Printf.printf "I: keypair %s has been generated\n%!" kp.R.id;
       let pubkey = "public", kp.R.id ^ ".pubkey", 0o444, kp.R.pub in
       let privkey = "private", kp.R.id ^ ".privkey", 0o400, kp.R.priv in
       let save (kind, filename, perm, thing) =

src/tool/tool_tkeygen.ml

@@ -65,7 +65,6 @@ module Make (P : PARSED_PARAMS) : S = struct
       (sha256_hex (G.to_string public_key.trustee_public_key))
       0 8 |> String.uppercase
     in
-    Printf.printf "I: keypair %s has been generated\n%!" id;
     let priv = string_of_number private_key in
     let pub = string_of_trustee_public_key G.write public_key in
     {id; priv; pub}