From 771231cee0a6d15f13a97814be5d2dfde3ed270e Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sun, 30 Nov 2025 03:05:31 +0100
Subject: [PATCH]

---
 src/mte.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/mte.ml b/src/mte.ml
index ac09560c..3d267dc2 100644
--- a/src/mte.ml
+++ b/src/mte.ml
@@ -28,6 +28,7 @@ let log_level_color = function
 
 let reporter : Logs.reporter =
   let open Fmt in
+  let pp_timestamp = styled `Faint (styled (`Fg `White) (fmt "%04.02f")) in
   let pp_header ppf v =
     let color = fst v |> log_level_color in
     let pp = styled (`Fg color) Logs.pp_header in
@@ -43,16 +44,14 @@ let reporter : Logs.reporter =
     let k _ppf = over (); k () in
     let with_detail h tags k user_fmt =
       let detail = Option.bind tags (Logs.Tag.find detail_tag) in
-      let dt =
+      let timestamp =
         Ptime.sub_span (Ptime_clock.now ()) time_anchor
         |> Option.get
         |> Ptime.to_float_s
       in
       let k ppf = kpf k ppf "%a@." pp_detail detail in
       let k ppf = kpf k ppf user_fmt in
-      kpf k ppf "%a %a %a"
-        (styled `Faint (styled (`Fg `White) (fmt "%04.02f")))
-        dt pp_header (lvl, h) pp_src src
+      kpf k ppf "%a %a %a" pp_timestamp timestamp pp_header (lvl, h) pp_src src
     in
     msgf @@ fun ?header ?tags fmt -> with_detail header tags k fmt
   in