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

@ -3,7 +3,7 @@ module Log_reporter = struct
Logs.Tag.def "Detail tag" ~doc:"" Fmt.string
let detail s = Logs.Tag.(empty |> add detail_tag s)
let time_anchor = Ptime_clock.now () |> Ptime.to_span
let time_anchor = Mirage_ptime.now () |> Ptime.to_span
let color_of_log_level = function
| Logs.App -> `White
@ -35,7 +35,7 @@ module Log_reporter = struct
let with_detail h tags k user_fmt =
let detail = Option.bind tags (Logs.Tag.find detail_tag) in
let timestamp =
Ptime.sub_span (Ptime_clock.now ()) time_anchor
Ptime.sub_span (Mirage_ptime.now ()) time_anchor
|> Option.map Ptime.to_float_s
|> Option.value ~default:0.
in