diff --git a/src/pg.ml b/src/pg.ml
index 64f21696..769cfe46 100644
--- a/src/pg.ml
+++ b/src/pg.ml
@@ -80,7 +80,7 @@ let preflight =
   fun (module Conn : Caqti_miou.CONNECTION) ->
     Syntax.list_iter (fun p -> Conn.exec p ()) l
 
-let _lookup_signing_key =
+let lookup_signing_key =
   let lookup_signing_key =
     Caqti_type.(eddsa_public ->? t3 ptime ptime ptime)
       "SELECT valid_from, expire_sign, expire_legal FROM exchange_sign_keys \
@@ -106,7 +106,7 @@ let activate_signing_key =
     Conn.exec insert_signkey
       (pub, stamp_start, stamp_expire, stamp_end, master_sig)
 
-let _lookup_denomination_key =
+let lookup_denomination_key =
   let lookup_denomination_key =
     Caqti_type.(
       denomination_hash
@@ -119,7 +119,7 @@ let _lookup_denomination_key =
   fun (module Conn : CONN) (h_denom_pub : DenominationHash.t) ->
     Conn.find_opt lookup_denomination_key h_denom_pub
 
-let _add_denomination_key =
+let add_denomination_key =
   let denomination_insert =
     Caqti_type.(
       t12 denomination_hash rsa_public eddsa_signature ptime ptime ptime ptime
@@ -165,23 +165,3 @@ let _add_denomination_key =
         fee_deposit,
         fee_refresh,
         (fee_refund, age_mask) )
-
-(* ----- *)
-
-let pg_todo () = assert false
-let lookup_signing_key = pg_todo
-let iterate_active_signkeys = pg_todo
-let insert_signkey_revocation = pg_todo
-let lookup_signkey_revocation = pg_todo
-
-(* denominations *)
-let insert_denomination_info = pg_todo
-let get_denomination_info = pg_todo
-let get_denomination_by_serial = pg_todo
-let iterate_denomination_info = pg_todo
-let iterate_denominations = pg_todo
-let get_coin_denomination = pg_todo
-let insert_denomination_revocation = pg_todo
-let get_denomination_revocation = pg_todo
-let lookup_denomination_key = pg_todo
-let add_denomination_key = pg_todo