test/validate_response.ml

@@ -58,7 +58,7 @@ let keys content =
     | None -> Fmt.error "exchange_pub is not in signkeys list"
     | Some sk ->
         let sk = SignKey.to_signkey sk in
-        (* todo will need to fake time to validate expired data *)
+        (* TODO will need to fake time to validate expired data *)
         let now = Timestamp.of_ptime (Ptime_clock.now ()) in
         if Signkey.is_valid_at ~timestamp:now sk then Ok ()
         else Fmt.error "exchange_pub is not valid at the current time"
@@ -73,7 +73,6 @@ let keys content =
         }
   in
 
-  (* TODO parse CS *)
   let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in
   let* () =
     let open Denomination in
@@ -137,7 +136,7 @@ let keys content =
   in
 
   let* () =
-    (* todo O(n^2) *)
+    (* TODO O(n^2) *)
     v.auditors
     |> list_iter
          (fun