+ ExchangePartnerListEntry

src/api.ml

@@ -767,3 +767,48 @@ module ExchangePartnerSetupRequest = struct
     |> mem "wad_fee" Amount.jsont ~enc:wad_fee
     |> finish
 end
+
+(* -- types for /keys -- *)
+
+module ExchangePartnerListEntry = struct
+  type t = {
+    partner_base_url: string;
+    partner_master_pub: EddsaPublicKey.t;
+    wad_fee: Amount.t;
+    wad_frequency: RelativeTime.t;
+    start_date: Timestamp.t;
+    end_date: Timestamp.t;
+    master_sig: WadPartnerSignaturePS.t;
+  }
+
+  let jsont =
+    let make partner_base_url partner_master_pub wad_fee wad_frequency
+        start_date end_date master_sig =
+      {
+        partner_base_url;
+        partner_master_pub;
+        wad_fee;
+        wad_frequency;
+        start_date;
+        end_date;
+        master_sig;
+      }
+    in
+    let partner_base_url v = v.partner_base_url in
+    let partner_master_pub v = v.partner_master_pub in
+    let wad_fee v = v.wad_fee in
+    let wad_frequency v = v.wad_frequency in
+    let start_date v = v.start_date in
+    let end_date v = v.end_date in
+    let master_sig v = v.master_sig in
+    let open Jsont.Object in
+    map ~kind:"ExchangePartnerListEntry" make
+    |> mem "partner_base_url" Jsont.string ~enc:partner_base_url
+    |> mem "partner_master_pub" EddsaPublicKey.jsont ~enc:partner_master_pub
+    |> mem "wad_fee" Amount.jsont ~enc:wad_fee
+    |> mem "wad_frequency" RelativeTime.jsont ~enc:wad_frequency
+    |> mem "start_date" Timestamp.jsont ~enc:start_date
+    |> mem "end_date" Timestamp.jsont ~enc:end_date
+    |> mem "master_sig" WadPartnerSignaturePS.jsont ~enc:master_sig
+    |> finish
+end