+ ExchangePartnerSetupRequest

src/bin_signature.ml

@@ -515,6 +515,46 @@ module MasterAmlOfficerStatusPS = struct
   include MK (R)
 end
 
+module PartnerConfigurationPS = struct
+  module R = struct
+    (* purpose.purpose = TALER_SIGNATURE_MASTER_PARNTER_DETAILS *)
+    type r = {
+      partner_pub: MasterPublicKeyP.t;
+      start_date: TimestampNBO.t;
+      end_date: TimestampNBO.t;
+      wad_frequency: TimeRelativeNBO.t;
+      wad_fee: AmountNBO.t;
+      h_url: Hash_64_cstr.t;
+    }
+
+    let bin =
+      let open Bin in
+      Purpose.make_bin Taler_signatures.master_partner_details
+      @@ fun _purpose ->
+      record
+        (fun
+          _purpose
+          partner_pub
+          start_date
+          end_date
+          wad_frequency
+          wad_fee
+          h_url
+        -> { partner_pub; start_date; end_date; wad_frequency; wad_fee; h_url })
+      |+ Purpose.field _purpose
+      |+ field MasterPublicKeyP.bin (fun t -> t.partner_pub)
+      |+ field TimestampNBO.bin (fun t -> t.start_date)
+      |+ field TimestampNBO.bin (fun t -> t.end_date)
+      |+ field TimeRelativeNBO.bin (fun t -> t.wad_frequency)
+      |+ field AmountNBO.bin (fun t -> t.wad_fee)
+      |+ field Hash_64_cstr.bin (fun t -> t.h_url)
+      |> sealr
+  end
+
+  include R
+  include MK (R)
+end
+
 (* ### BIN IMPL END ### *)
 
 module WithdrawRequestPS = struct
@@ -994,18 +1034,6 @@ module AmlDecisionPS = struct
   }
 end
 
-module PartnerConfigurationPS = struct
-  (* purpose.purpose = TALER_SIGNATURE_MASTER_PARNTER_DETAILS *)
-  type t = {
-    partner_pub: MasterPublicKeyP.t;
-    start_date: TimestampNBO.t;
-    end_date: TimestampNBO.t;
-    wad_frequency: TimeRelativeNBO.t;
-    wad_fee: AmountNBO.t;
-    h_url: Hash_64_cstr.t;
-  }
-end
-
 module ReserveOpenPS = struct
   (* purpose.purpose = TALER_SIGNATURE_WALLET_RESERVE_OPEN *)
   type t = {