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/secmod_rsa.ml
View file

@ -212,7 +212,7 @@ let load fs =
let init fs =
let* opt = load fs in
let now = TimeAbsolute.of_ptime (Ptime_clock.now ()) in
let now = TimeAbsolute.of_ptime (Mirage_ptime.now ()) in
let* t =
match opt with
| Some t -> Ok t
@ -262,7 +262,7 @@ module Make (Fs : Fat.FS) = struct
|> list_iter delete
let add section_name t1 t2 =
let last_change = Timestamp.of_ptime (Ptime_clock.now ()) in
let last_change = Timestamp.of_ptime (Mirage_ptime.now ()) in
let k = gen_key ~section_name t1 t2 in
let+ () = write_key t.fs k in
Hashtbl.replace t.ht k.h_pub k;