anil.recoil.org
Zulip bots with Eio
Suppress TLS tracing debug output, improve Zulip request logging
ocaml-requests: Add automatic suppression of tls.tracing source after
first TLS connection. The source is created lazily by ocaml-tls, so
early logging setup misses it. Now suppressed to Warning level after
first connection unless explicitly set to Debug.
ocaml-zulip: Log full URL with query params in debug output instead of
just the path, making it easier to debug API issues.
Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
+5
-4
+5
-4
lib/zulip/client.ml
+5
-4
lib/zulip/client.ml
···
37
37
| `PATCH -> "PATCH"
38
38
39
39
let request t ~method_ ~path ?params ?body ?content_type () =
40
-
let url = Auth.server_url t.auth ^ path in
41
-
Log.debug (fun m -> m "Request: %s %s" (method_to_string method_) path);
40
+
let base_url = Auth.server_url t.auth ^ path in
42
41
43
42
(* Convert params to URL query string if provided *)
44
43
let url =
45
44
params
46
45
|> Option.map (fun p ->
47
-
Uri.of_string url
46
+
Uri.of_string base_url
48
47
|> Fun.flip
49
48
(List.fold_left (fun u (k, v) -> Uri.add_query_param' u (k, v)))
50
49
p
51
50
|> Uri.to_string)
52
-
|> Option.value ~default:url
51
+
|> Option.value ~default:base_url
53
52
in
53
+
54
+
Log.debug (fun m -> m "Request: %s %s" (method_to_string method_) url);
54
55
55
56
(* Prepare request body if provided *)
56
57
let body_opt =