1
2
3
4
5
6
7
8
9
10
11
let pp_blue : Format.formatter -> string -> unit =
let open Fmt in
styled (`Fg `Blue) Fmt.string |> styled `Bold
let pp_yellow : Format.formatter -> string -> unit =
let open Fmt in
styled (`Fg `Yellow) Fmt.string |> styled `Bold
let pp_bright_green : Format.formatter -> string -> unit =
let open Fmt in
styled (`Fg (`Hi `Green)) Fmt.string |> styled `Bold