+ denom revoke

src/pg.ml

@@ -158,3 +158,14 @@ let add_denomination_key =
         fee_deposit,
         fee_refresh,
         (fee_refund, age_mask) )
+
+let insert_denomination_revocation =
+  let denomination_revocation_insert =
+    let master_sig = Bin_sig.MasterDenominationKeyRevocation.caqti in
+    Caqti_type.(t2 denomination_hash master_sig ->. unit)
+      "INSERT INTO denomination_revocations (denominations_serial, master_sig) \
+       SELECT denominations_serial, $2 FROM denominations WHERE \
+       denom_pub_hash=$1"
+  in
+  fun (module Conn : CONN) h_denom_pub master_sig ->
+    Conn.exec denomination_revocation_insert (h_denom_pub, master_sig)