swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add amount compare

Browse source
This commit is contained in:
swrup 2026-03-03 10:45:39 +01:00
parent bcc940100a
commit 708be6279a
3 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/denomination.ml
View file

@ -99,16 +99,7 @@ let make_denom_group_sorted denominations =
let open RsaDenomGroup in
let open RsaDenom in
let cmp_denom b a = Timestamp.compare a.stamp_start b.stamp_start in
let cmp_group =
let cmp_amount a b =
(* TODO amount *)
let open Amount in
match Int64.unsigned_compare a.value b.value with
| 0 -> Int32.unsigned_compare a.fraction b.fraction
| n -> n
in
fun (Rsa a) (Rsa b) -> cmp_amount a.value b.value
in
let cmp_group = fun (Rsa a) (Rsa b) -> Amount.compare a.value b.value in
let l =
l
|> List.map