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

change ptime util; amount fraction to int32

Browse source
This commit is contained in:
swrup 2025-11-16 15:28:14 +01:00
parent 2433ff3932
commit f278048faa
3 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/pg.ml
View file

@ -14,11 +14,9 @@ end
let pg_amount : Amount.t Caqti_type.t =
let open Amount in
(* TODO bad int32 conversion *)
Caqti_type.custom
~encode:(fun amount -> Ok (amount.value, Int64.to_int32 amount.fraction))
~encode:(fun amount -> Ok (amount.value, amount.fraction))
~decode:(fun (value, fraction) ->
let fraction = Int64.of_int32 fraction in
Ok { sign= None; currency= `Eur; value; fraction })
Caqti_type.(t2 int64 int32)