From 90fa0ba3b709c827a35da28f1361b671321093f5 Mon Sep 17 00:00:00 2001
From: Shon Feder <shon.feder@gmail.com>
Date: Tue, 10 Jun 2025 18:00:04 -0400
Subject: [PATCH] Add `pp` implemtation for `Client_ocurl.Config`

---
 src/client-ocurl/config.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/client-ocurl/config.ml b/src/client-ocurl/config.ml
index a2f9fb6b..72a772ea 100644
--- a/src/client-ocurl/config.ml
+++ b/src/client-ocurl/config.ml
@@ -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 ()