+ AggregateTransferFee

src/api.ml

@@ -812,3 +812,31 @@ module ExchangePartnerListEntry = struct
     |> mem "master_sig" WadPartnerSignaturePS.jsont ~enc:master_sig
     |> finish
 end
+
+module AggregateTransferFee = struct
+  type t = {
+    wire_fee: Amount.t;
+    closing_fee: Amount.t;
+    start_date: Timestamp.t;
+    end_date: Timestamp.t;
+    sig_: MasterWireFeePS.t;
+  }
+
+  let jsont =
+    let make wire_fee closing_fee start_date end_date sig_ =
+      { wire_fee; closing_fee; start_date; end_date; sig_ }
+    in
+    let wire_fee v = v.wire_fee in
+    let closing_fee v = v.closing_fee in
+    let start_date v = v.start_date in
+    let end_date v = v.end_date in
+    let sig_ v = v.sig_ in
+    let open Jsont.Object in
+    map ~kind:"AggregateTransferFee" make
+    |> mem "wire_fee" Amount.jsont ~enc:wire_fee
+    |> mem "closing_fee" Amount.jsont ~enc:closing_fee
+    |> mem "start_date" Timestamp.jsont ~enc:start_date
+    |> mem "end_date" Timestamp.jsont ~enc:end_date
+    |> mem "sig" MasterWireFeePS.jsont ~enc:sig_
+    |> finish
+end