+ ExchangePartnerSetupRequest

src/api.ml

@@ -627,3 +627,46 @@ module AmlOfficerSetup = struct
     |> mem "change_date" Timestamp.jsont ~enc:change_date
     |> finish
 end
+
+module ExchangePartnerSetupRequest = struct
+  type t = {
+    partner_base_url: string;
+    partner_pub: EddsaPublicKey.t;
+    wad_frequency: RelativeTime.t;
+    master_sig: PartnerConfigurationPS.t;
+    start_date: Timestamp.t;
+    end_date: Timestamp.t;
+    wad_fee: Amount.t;
+  }
+
+  let jsont =
+    let make partner_base_url partner_pub wad_frequency master_sig start_date
+        end_date wad_fee =
+      {
+        partner_base_url;
+        partner_pub;
+        wad_frequency;
+        master_sig;
+        start_date;
+        end_date;
+        wad_fee;
+      }
+    in
+    let partner_base_url v = v.partner_base_url in
+    let partner_pub v = v.partner_pub in
+    let wad_frequency v = v.wad_frequency in
+    let master_sig v = v.master_sig in
+    let start_date v = v.start_date in
+    let end_date v = v.end_date in
+    let wad_fee v = v.wad_fee in
+    let open Jsont.Object in
+    map ~kind:"ExchangePartnerSetupRequest" make
+    |> mem "partner_base_url" Jsont.string ~enc:partner_base_url
+    |> mem "partner_pub" EddsaPublicKey.jsont ~enc:partner_pub
+    |> mem "wad_frequency" RelativeTime.jsont ~enc:wad_frequency
+    |> mem "master_sig" PartnerConfigurationPS.jsont ~enc:master_sig
+    |> mem "start_date" Timestamp.jsont ~enc:start_date
+    |> mem "end_date" Timestamp.jsont ~enc:end_date
+    |> mem "wad_fee" Amount.jsont ~enc:wad_fee
+    |> finish
+end