Commit b5cf2af0 authored by POGODALLA Sylvain's avatar POGODALLA Sylvain

Fixes formatting issues when logging errors

parent 1ec95f16
......@@ -9,8 +9,8 @@ let my_reporter ~app ppf =
let new_report src level ~over k msgf =
let k _ = over (); k () in
match level with
| Logs.App
| Logs.Error -> msgf @@ fun ?header ?tags fmt -> Fmt.kpf k ppf ("%a@[" ^^ fmt ^^ "@]@.") Logs_fmt.pp_header (level, header)
| Logs.App -> msgf @@ fun ?header ?tags fmt -> Fmt.kpf k ppf ("%a@[" ^^ fmt ^^ "@]@.") Logs_fmt.pp_header (level, header)
| Logs.Error -> msgf @@ fun ?header ?tags fmt -> Fmt.kpf k ppf ("%a @[" ^^ fmt ^^ "@]@.") Logs_fmt.pp_header (level, header)
| _ ->
let p1,p2 = if src = Logs.default then app,"" else app^"/",(Logs.Src.name src) in
let with_src h tags k ppf fmt =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment