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

fix warning

Browse source
This commit is contained in:
Simon Cruanes 2024-03-28 11:56:38 -04:00
parent 10792af507
commit 23f904e552
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/server.ml
View file

@ -315,8 +315,6 @@ let string_as_list_contains_ (s : string) (sub : string) : bool =
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 ->
let (module B) = self.backend in
(* how to log the response to this query *) (* how to log the response to this query *)
let log_response (req : _ Request.t) (resp : Response.t) = let log_response (req : _ Request.t) (resp : Response.t) =
if not Log.dummy then ( if not Log.dummy then (