My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** Timeout configuration *)
2
3(** Log source for timeout operations *)
4val src : Logs.Src.t
5
6type t
7(** Timeout configuration *)
8
9val none : t
10(** No timeouts *)
11
12val create : ?connect:float -> ?read:float -> ?total:float -> unit -> t
13(** Create timeout configuration with optional connect, read, and total timeouts in seconds *)
14
15val default : t
16(** Sensible defaults: 10s connect, 30s read, no total limit *)
17
18val connect : t -> float option
19(** Get connection timeout *)
20
21val read : t -> float option
22(** Get read timeout *)
23
24val total : t -> float option
25(** Get total request timeout *)
26
27val pp : Format.formatter -> t -> unit
28(** Pretty printer for timeout configuration *)