wip debug sigs

src/http_management.ml

@@ -135,6 +135,7 @@ module Keys_post = struct
         fee_withdraw= denom.fee_withdraw;
         fee_deposit= denom.fee_deposit;
         fee_refresh= denom.fee_refresh;
+        fee_refund= denom.fee_refund;
         denom_hash= h_denom_pub;
       }
     in

src/signatures.ml

@@ -248,6 +248,9 @@ module DenominationKeyValidity = struct
       fee_withdraw: AmountNBO.t;
       fee_deposit: AmountNBO.t;
       fee_refresh: AmountNBO.t;
+      (* TODO debug sig
+         missing field from taler doc *)
+      fee_refund: AmountNBO.t;
       denom_hash: DenominationHash.t;
     }
 
@@ -267,6 +270,7 @@ module DenominationKeyValidity = struct
           fee_withdraw
           fee_deposit
           fee_refresh
+          fee_refund
           denom_hash
         ->
           {
@@ -279,6 +283,7 @@ module DenominationKeyValidity = struct
             fee_withdraw;
             fee_deposit;
             fee_refresh;
+            fee_refund;
             denom_hash;
           })
       |+ Purpose.field purpose
@@ -291,6 +296,7 @@ module DenominationKeyValidity = struct
       |+ field AmountNBO.bin (fun t -> t.fee_withdraw)
       |+ field AmountNBO.bin (fun t -> t.fee_deposit)
       |+ field AmountNBO.bin (fun t -> t.fee_refresh)
+      |+ field AmountNBO.bin (fun t -> t.fee_refund)
       |+ field DenominationHash.bin (fun t -> t.denom_hash)
       |> sealr
   end

tools/offline_sig.ml

@@ -87,7 +87,7 @@ let mk_future_keys =
           fee_withdraw;
           fee_deposit;
           fee_refresh;
-          fee_refund= _;
+          fee_refund;
           denom_secmod_sig= _;
         } =
     let octets = DenominationKey.to_octets denom_pub in
@@ -107,6 +107,7 @@ let mk_future_keys =
           fee_withdraw;
           fee_deposit;
           fee_refresh;
+          fee_refund;
           denom_hash= h_denom_pub;
         }
     in