swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-30 03:15:40 +01:00
parent 9db9821ac0
commit 18d067746d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mte.ml
View file

@ -34,9 +34,9 @@ let reporter : Logs.reporter =
let pp = styled (`Fg color) Logs.pp_header in let pp = styled (`Fg color) Logs.pp_header in
pf ppf "%a" pp v pf ppf "%a" pp v
in in
let pp_src_name ppf v = let pp_src_name =
let pp = using Logs.Src.name (styled `Cyan string) in let pp = using Logs.Src.name (styled `Cyan (fmt "%s: ")) in
if not @@ Logs.Src.equal Logs.default v then pp ppf v fun ppf v -> if not @@ Logs.Src.equal Logs.default v then pp ppf v
in in
let pp_detail = option (styled `Green (fmt " (%s)")) in let pp_detail = option (styled `Green (fmt " (%s)")) in
let report src lvl ~over k msgf = let report src lvl ~over k msgf =