+ DenominationKeyAnnouncementPS.bin

src/binary_formats.ml

@@ -442,6 +442,8 @@ module WithdrawConfirmationPS = struct
 end
 
 module DenominationKeyAnnouncementPS = struct
+  (* TODO taler_signatures purpose
+     we use TALER_SIGNATURE_SM_RSA_DENOMINATION_KEY instead here *)
   (* purpose.purpose = TALER_SIGNATURE_SM_DENOMINATION_KEY *)
   type t = {
     h_denom_pub: DenominationHash.t;
@@ -450,9 +452,18 @@ module DenominationKeyAnnouncementPS = struct
     duration_withdraw: TimeRelativeNBO.t;
   }
 
-  (* TODO management *)
-  (* let bin = ... *)
-  let to_string _ = assert false
+  let bin =
+    let open Bin in
+    Purpose.make_bin Taler_signatures.sm_rsa_denomination_key @@ fun purpose ->
+    record
+      (fun _purpose h_denom_pub h_section_name anchor_time duration_withdraw ->
+        { h_denom_pub; h_section_name; anchor_time; duration_withdraw })
+    |+ Purpose.field purpose
+    |+ field DenominationHash.bin (fun t -> t.h_denom_pub)
+    |+ field HashCode.bin (fun t -> t.h_section_name)
+    |+ field TimeAbsoluteNBO.bin (fun t -> t.anchor_time)
+    |+ field TimeRelativeNBO.bin (fun t -> t.duration_withdraw)
+    |> sealr
 end
 
 module SingleWithdrawRequestPS = struct