wip debug sigs

This commit is contained in:
swrup 2026-02-07 00:11:25 +01:00
parent 6af4f57d20
commit 5e69f3ecaf
9 changed files with 27 additions and 3 deletions

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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