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

clean up

Browse source
This commit is contained in:
swrup 2026-03-03 10:09:03 +01:00
parent d0ddee257e
commit bcc940100a
20 changed files with 112 additions and 130 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/pg.ml
View file

@ -1,11 +1,6 @@
(* TODO
can we avoid amount tuple boilerplate?
clean up caqti error type
transaction
GNU Taler use of db-events?
it seems caqti/pgx does not support it *)
GNU Taler use of db-events? it seems caqti/pgx does not support it *)
module type CONN = Caqti_miou.CONNECTION
@ -162,7 +157,7 @@ let get_auditor_keys =
in
fun (module Conn : CONN) ->
let open Syntax in
let* l = Conn.collect_list req () |> unwrap_err_caqti in
let* l = Conn.collect_list req () |> unwrap_caqti in
let ht = Hashtbl.create 0xff in
List.iter
(fun (pub, url, name, denom_pub_h, auditor_sig) ->