simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

perf: force a lazy in the branch where it is used

Browse source
This commit is contained in:
Simon Cruanes 2024-12-04 15:10:57 -05:00
parent 709d1106fa
commit 7639acfc19
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/core/server.ml
View file

@ -314,10 +314,11 @@ let find_map f l =
let header_list_contains_ (s : string) (name : string) : bool = let header_list_contains_ (s : string) (name : string) : bool =
let name' = String.lowercase_ascii name in let name' = String.lowercase_ascii name in
let fragments = String.split_on_char ',' s in let fragments = String.split_on_char ',' s in
List.exists (fun fragment -> List.exists
String.lowercase_ascii (String.trim fragment) = name') fragments (fun fragment -> String.lowercase_ascii (String.trim fragment) = name')
fragments
(* handle client on [ic] and [oc] *) (** handle client on [ic] and [oc] *)
let client_handle_for (self : t) ~client_addr ic oc : unit = let client_handle_for (self : t) ~client_addr ic oc : unit =
Pool.with_resource self.bytes_pool @@ fun bytes_req -> Pool.with_resource self.bytes_pool @@ fun bytes_req ->
Pool.with_resource self.bytes_pool @@ fun bytes_res -> Pool.with_resource self.bytes_pool @@ fun bytes_res ->
@ -414,10 +415,10 @@ let client_handle_for (self : t) ~client_addr ic oc : unit =
(* merge per-request middlewares with the server-global middlewares *) (* merge per-request middlewares with the server-global middlewares *)
let get_middlewares ~handler_middlewares () : _ list = let get_middlewares ~handler_middlewares () : _ list =
let global_middlewares = Lazy.force self.middlewares_sorted in if handler_middlewares = [] then (
if handler_middlewares = [] then let global_middlewares = Lazy.force self.middlewares_sorted in
global_middlewares global_middlewares
else ) else
sort_middlewares_ (List.rev_append handler_middlewares self.middlewares) sort_middlewares_ (List.rev_append handler_middlewares self.middlewares)
in in