Add pp implemtation for Client_ocurl.Config

This commit is contained in:
Shon Feder 2025-06-10 18:00:04 -04:00
parent ec0efec681
commit 90fa0ba3b7
No known key found for this signature in database

View file

@ -15,7 +15,12 @@ type t = {
@since 0.12*)
}
let pp fmt _ = Format.pp_print_string fmt "TODO"
let pp out self =
let { bg_threads; ticker_thread; ticker_interval_ms; common } = self in
Format.fprintf out
"{@[ bg_threads=%d;@ ticker_thread=%B;@ ticker_interval_ms=%d;@ common=%a \
@]}"
bg_threads ticker_thread ticker_interval_ms Client.Config.pp common
module Env = Client.Config.Env ()