···

       
645
       
 
       


     

       
646
       
 
       
(** {1 Public API - Pool Management} *)

     

       
647
       
 
       


     

       
648
       
-
       
let close_idle_connections (pool : ('clock Eio.Time.clock, 'net Eio.Net.t) t) endpoint =

     

       
649
       
-
       
  match Hashtbl.find_opt pool.endpoints endpoint with

     

       
650
       
-
       
  | Some _ep_pool ->

     

       
651
       
-
       
      (* This is complex to implement correctly with Eio.Pool *)

     

       
652
       
-
       
      (* Would need to track idle connections separately *)

     

       
653
       
-
       
      failwith "close_idle_connections: not yet implemented"

     

       
654
       
-
       
  | None ->

     

       
655
       
-
       
      () (* No connections to close *)

     

       
656
       
-
       


     

       
657
       
 
       
let close_all_connections (pool : ('clock Eio.Time.clock, 'net Eio.Net.t) t) endpoint =

     

       
658
       
 
       
  match Hashtbl.find_opt pool.endpoints endpoint with

     

       
659
       
 
       
  | Some _ep_pool ->

     

···

       
645
       
 
       


     

       
646
       
 
       
(** {1 Public API - Pool Management} *)

     

       
647
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
648
       
 
       
let close_all_connections (pool : ('clock Eio.Time.clock, 'net Eio.Net.t) t) endpoint =

     

       
649
       
 
       
  match Hashtbl.find_opt pool.endpoints endpoint with

     

       
650
       
 
       
  | Some _ep_pool ->

     

···

       
267
       
 
       


     

       
268
       
 
       
(** {1 Pool Management} *)

     

       
269
       
 
       


     

       
270
       
-
       
val close_idle_connections :

     

       
271
       
-
       
  ('clock Eio.Time.clock, 'net Eio.Net.t) t ->

     

       
272
       
-
       
  Endpoint.t ->

     

       
273
       
-
       
  unit

     

       
274
       
 
       
(** Close all idle connections for endpoint (keeps active ones) *)

     

       
275
       
-
       


     

       
276
       
 
       
val close_all_connections :

     

       
277
       
 
       
  ('clock Eio.Time.clock, 'net Eio.Net.t) t ->

     

       
278
       
 
       
  Endpoint.t ->

     

···

       
267
       
 
       


     

       
268
       
 
       
(** {1 Pool Management} *)

     

       
269
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
270
       
 
       
(** Close all idle connections for endpoint (keeps active ones) *)

     

       
0
       
 
       

     

       
271
       
 
       
val close_all_connections :

     

       
272
       
 
       
  ('clock Eio.Time.clock, 'net Eio.Net.t) t ->

     

       
273
       
 
       
  Endpoint.t ->

     

···

       
122
       
 
       
  let start_time = Unix.gettimeofday () in

     

       
123
       
 
       


     

       
124
       
 
       
  let method_str = Method.to_string method_ in

     

       
125
       
-
       
  Log.info (fun m -> m "Making %s request to %s" method_str url);

     

       
126
       
 
       


     

       
127
       
 
       
  (* Prepare headers *)

     

       
128
       
 
       
  let headers = match headers with

     

···

       
122
       
 
       
  let start_time = Unix.gettimeofday () in

     

       
123
       
 
       


     

       
124
       
 
       
  let method_str = Method.to_string method_ in

     

       
125
       
+
       
  Log.debug (fun m -> m "[One] Executing %s request to %s" method_str url);

     

       
126
       
 
       


     

       
127
       
 
       
  (* Prepare headers *)

     

       
128
       
 
       
  let headers = match headers with