simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2026-03-09 15:23:33 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix warnings

Browse source
This commit is contained in:
Simon Cruanes 2026-02-15 15:13:25 -05:00
parent a11ed88522
commit 94ed68c30c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
examples/echo_eio.ml
View file

@ -69,12 +69,10 @@ let middleware_stat () : Server.Middleware.t * (unit -> string) =
let middleware_trace : Server.Middleware.t = let middleware_trace : Server.Middleware.t =
fun (h : Server.Middleware.handler) req ~resp -> fun (h : Server.Middleware.handler) req ~resp ->
let _sp = let _sp = Trace.enter_span ~__FILE__ ~__LINE__ "http.handle" in
Trace.enter_manual_toplevel_span ~__FILE__ ~__LINE__ "http.handle"
in
let new_resp (r : Response.t) = let new_resp (r : Response.t) =
Trace.add_data_to_manual_span _sp [ "http.code", `Int r.code ]; Trace.add_data_to_span _sp [ "http.code", `Int r.code ];
Trace.exit_manual_span _sp; Trace.exit_span _sp;
resp r resp r
in in
h req ~resp:new_resp h req ~resp:new_resp