tools/offline_impl.ml

@@ -5,6 +5,10 @@ let read_file fname = Bos.OS.File.read (Fpath.v fname) |> unwrap_err_msg
 let write_file fname content =
   Bos.OS.File.write (Fpath.v fname) content |> unwrap_err_msg
 
+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
 
@@ -40,9 +44,8 @@ let setup ~output =
 
 let sign ~master_key ~input ~output =
   let open Crypto in
+  let* master_key = read_master_key_file master_key in
   let* input = read_file input in
-  let* master_key = read_file master_key in
-  let* master_key = EddsaPrivateKey.of_octets master_key in
   let master_pub = EddsaPrivateKey.pub_of_priv master_key in
   let* future_keys_response = Api.decode Api.FutureKeysResponse.jsont input in
   let* () =
@@ -56,9 +59,7 @@ let sign ~master_key ~input ~output =
   Ok ()
 
 let revoke_denom ~output ~master_key ~h_denom =
-  let open Crypto in
-  let* key = read_file master_key in
-  let* key = EddsaPrivateKey.of_octets key in
+  let* key = read_master_key_file master_key in
   let* h_denom = B32.decode h_denom in
   let h_denom = Bin_type.DenominationHash.of_octets h_denom in
   let denom_revoke = Offline_sig.mk_denom_revoke ~key h_denom in
@@ -68,8 +69,7 @@ let revoke_denom ~output ~master_key ~h_denom =
 
 let revoke_signkey ~output ~master_key ~signkey =
   let open Crypto in
-  let* key = read_file master_key in
-  let* key = EddsaPrivateKey.of_octets key in
+  let* key = read_master_key_file master_key in
   let* signkey = EddsaPublicKey.of_b32 signkey in
   let v = Offline_sig.mk_signkey_revoke ~key signkey in
   let* s = Api.encode Api.SignkeyRevocationSignature.jsont v in
@@ -80,8 +80,7 @@ let global_fees ~output ~master_key ~start_date ~end_date ~history_fee
     ~account_fee ~purse_fee ~history_expiration ~purse_account_limit
     ~purse_timeout =
   let open Crypto in
-  let* key = read_file master_key in
-  let* key = EddsaPrivateKey.of_octets key in
+  let* key = read_master_key_file master_key in
   let* purse_account_limit =
     match
       purse_account_limit >= 0
@@ -124,5 +123,4 @@ let global_fees ~output ~master_key ~start_date ~end_date ~history_fee
       }
   in
   let* s = Api.encode Api.GlobalFees.jsont global_fees in
-  let* () = write_file output s in
-  Ok ()
+  write_file output s