X-Forwarded-For parsing and trusted proxy detection for OCaml
Upgrade to ocamlformat 0.29.0; fix csvt/sexpt streaming; reformat
- Update .ocamlformat to 0.29.0 across all 591 files
- csvt: reuse single Buffer.t for field reads (no alloc per field)
- sexpt: Obj members decoded from stream into Dict, typed Variant GADT
- Reformat all source files for 0.29.0
+9
-9
+8
-8
lib/xff.mli
+8
-8
lib/xff.mli
···
7
7
{2 Example}
8
8
9
9
{[
10
-
(* Configure trusted proxies *)
11
-
let trusted = Xff.private_ranges
10
+
(* Configure trusted proxies *)
11
+
let trusted = Xff.private_ranges
12
12
13
-
(* Extract client IP from request *)
14
-
let client_ip =
15
-
Xff.get_client_ip_string ~socket_ip:(Some socket_addr)
16
-
~xff_header:(Some "203.0.113.50, 10.0.0.1")
17
-
~trusted_proxies:(Some trusted)
18
-
(* Returns "203.0.113.50" if socket_ip is in trusted range *)
13
+
(* Extract client IP from request *)
14
+
let client_ip =
15
+
Xff.get_client_ip_string ~socket_ip:(Some socket_addr)
16
+
~xff_header:(Some "203.0.113.50, 10.0.0.1")
17
+
~trusted_proxies:(Some trusted)
18
+
(* Returns "203.0.113.50" if socket_ip is in trusted range *)
19
19
]}
20
20
21
21
{2 References}