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

s/Ptime_clock/Mirage_ptime/

Browse source
This commit is contained in:
swrup 2026-03-12 13:12:51 +01:00
parent e8d7b413ad
commit eff2cb8e67
5 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/keys.ml
View file

@ -63,7 +63,7 @@ module Make (Conn : Pg.CONN) (Fs : Fat.FS) : S = struct
())
let signkeys () : Signkey.t list result =
let now = Timestamp.of_ptime @@ Ptime_clock.now () in
let now = Timestamp.of_ptime @@ Mirage_ptime.now () in
let+ l = Pg.get_signkeys conn ~now |> unwrap_caqti in
let missing_l, l =
List.partition
@ -198,7 +198,7 @@ module Make (Conn : Pg.CONN) (Fs : Fat.FS) : S = struct
Ok future_dn
let make_future_keys_response () =
let now = Timestamp.of_ptime @@ Ptime_clock.now () in
let now = Timestamp.of_ptime @@ Mirage_ptime.now () in
(* get keys from database to filter out keys already certified *)
let* sk_db_l = Pg.get_signkeys conn ~now |> unwrap_caqti in
let sk_ht = Hashtbl.create 0xff in