(* TODO be sure to not use postgres ptime
   add a dune stanza like for prelude:
   "(flags (:standard -open Prelude))" *)
module Caqti_type = struct
  include Caqti_type

  (* we want to use int64 timestamps,
     not postgresql built-in timestamp type *)
  let ptime : Ptime.t Caqti_type.t =
    let encode i = Ok (Util.ptime_to_int64 i) in
    let decode = Util.ptime_of_int64 in
    Caqti_type.custom ~encode ~decode Caqti_type.(int64)
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))
    ~decode:(fun (value, fraction) ->
      let fraction = Int64.of_int32 fraction in
      Ok { sign= None; currency= `Eur; value; fraction })
    Caqti_type.(t2 int64 int32)

(* WIP: minimum db functions for basic /management *)

let pg_todo () = assert false

(* signkey *)
let activate_signing_key = pg_todo
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