From 2ccfc737100d87b6cf6d4f701b26df4fee1adb7b Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sun, 30 Nov 2025 03:07:07 +0100
Subject: [PATCH]

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

diff --git a/src/mte.ml b/src/mte.ml
index 3d267dc2..73136df7 100644
--- a/src/mte.ml
+++ b/src/mte.ml
@@ -34,7 +34,7 @@ let reporter : Logs.reporter =
     let pp = styled (`Fg color) Logs.pp_header in
     pf ppf "%a" pp v
   in
-  let pp_src ppf v =
+  let pp_src_name ppf v =
     let pp = using Logs.Src.name (styled `Cyan string) in
     if not @@ Logs.Src.equal Logs.default v then pp ppf v
   in
@@ -46,12 +46,13 @@ let reporter : Logs.reporter =
       let detail = Option.bind tags (Logs.Tag.find detail_tag) in
       let timestamp =
         Ptime.sub_span (Ptime_clock.now ()) time_anchor
-        |> Option.get
-        |> Ptime.to_float_s
+        |> Option.map Ptime.to_float_s
+        |> Option.value ~default:0.
       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" pp_timestamp timestamp pp_header (lvl, h) pp_src src
+      kpf k ppf "%a %a %a" pp_timestamp timestamp pp_header (lvl, h) pp_src_name
+        src
     in
     msgf @@ fun ?header ?tags fmt -> with_detail header tags k fmt
   in