From 18d067746d13d5619985514e8388533c2ad926f8 Mon Sep 17 00:00:00 2001 From: swrup Date: Sun, 30 Nov 2025 03:15:40 +0100 Subject: [PATCH] --- src/mte.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/mte.ml b/src/mte.ml index 73136df7..fc7b7e48 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -34,9 +34,9 @@ let reporter : Logs.reporter = let pp = styled (`Fg color) Logs.pp_header in pf ppf "%a" pp v in - 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 + let pp_src_name = + let pp = using Logs.Src.name (styled `Cyan (fmt "%s: ")) in + fun ppf v -> if not @@ Logs.Src.equal Logs.default v then pp ppf v in let pp_detail = option (styled `Green (fmt " (%s)")) in let report src lvl ~over k msgf =