test/validate_response.ml

@@ -34,13 +34,11 @@ let keys content =
                closing_fee;
              })
   in
-  (*Fmt.pr "OK wire_fees@.";*)
 
   let* () =
     v.global_fees
     |> list_iter (GlobalFees.verify_global_fees ~key:v.master_public_key)
   in
-  (*Fmt.pr "OK global_fees@.";*)
 
   let sk_l = List.map SignKey.to_signkey v.signkeys in
   let* () =
@@ -48,7 +46,6 @@ let keys content =
     |> list_iter
          (Signkey.verify_exchange_signing_key_validity ~key:v.master_public_key)
   in
-  (*Fmt.pr "OK signkeys@.";*)
 
   let* () =
     let opt = List.find_opt (fun sk -> sk.Signkey.pub = v.exchange_pub) sk_l in
@@ -69,7 +66,6 @@ let keys content =
           hc= Denomination.hash_over_master_sigs v.denominations;
         }
   in
-  (*Fmt.pr "OK exchange_pub@.";*)
 
   let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in
   let* () =
@@ -77,7 +73,6 @@ let keys content =
     |> list_iter
          (Denomination.verify_denomination_key_validity ~key:v.master_public_key)
   in
-  Fmt.pr "OK denominations@.";
 
   let* () =
     (* TODO O(n^2) *)
@@ -115,7 +110,6 @@ let keys content =
                    denom_hash= dn.h_pub;
                  })
   in
-  Fmt.pr "OK auditors@.";
 
   Ok ()