src/pg.ml

@@ -12,7 +12,10 @@ module Caqti_type = struct
     Caqti_type.custom ~encode ~decode Caqti_type.(int64)
 end
 
-let pg_amount : Amount.t Caqti_type.t =
+(*open Crypto*)
+open Bin_type
+
+let amount_t : Amount.t Caqti_type.t =
   let open Amount in
   Caqti_type.custom
     ~encode:(fun amount -> Ok (amount.value, amount.fraction))
@@ -20,16 +23,38 @@ let pg_amount : Amount.t Caqti_type.t =
       Amount.make ~sign:None ~currency:Config.currency ~value ~fraction)
     Caqti_type.(t2 int64 int32)
 
+let master_signature_t : MasterSignatureP.t Caqti_type.t =
+  let open MasterSignatureP in
+  Caqti_type.custom
+    ~encode:(fun master_sig -> Ok (to_string master_sig))
+    ~decode:(fun s -> of_string s)
+    Caqti_type.string
+
 (* WIP: minimum db functions for basic /management *)
 
 let pg_todo () = assert false
 
+open Caqti_request.Infix
+
 (* signkey *)
 (* todo:
      - what type to use for TALER_ExchangePublicKeyP + TALER_EXCHANGEDB_SignkeyMetaData
        -> I think it could be something = to FutureSignKey.t
      - master signature: over smthing? *)
-let activate_signing_key _cls _exchange_public_key _master_signature = pg_todo
+let activate_signing_key _cls (exchange_public_key : Signkey.t) =
+  let open Bin_type in
+  let _exchange_pub =
+    ExchangePublicKeyP.(to_string (of_value exchange_public_key.pub))
+  in
+  let _master_sig =
+    exchange_public_key.master_sig |> Option.get |> MasterSignatureP.to_string
+  in
+  let _insert_signkey =
+    Caqti_type.(t5 string ptime ptime ptime string ->! int)
+      "INSERT INTO exchange_sign_keys (exchange_pub, valid_from, expire_sign, \
+       expire_legal, master_sig) VALUES ($1, $2, $3, $4, $5);"
+  in
+  pg_todo ()
 
 (*
 
@@ -49,20 +74,6 @@ TEH_PG_activate_signing_key (
     GNUNET_PQ_query_param_auto_from_type (master_sig),
     GNUNET_PQ_query_param_end
   };
-
-  PREPARE (pg,
-           "insert_signkey",
-           "INSERT INTO exchange_sign_keys "
-           "(exchange_pub"
-           ",valid_from"
-           ",expire_sign"
-           ",expire_legal"
-           ",master_sig"
-           ") VALUES "
-           "($1, $2, $3, $4, $5);");
-  return GNUNET_PQ_eval_prepared_non_select (pg->conn,
-                                             "insert_signkey",
-                                             iparams);
 }
 *)