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-02-12 16:19:36 -05:00
parent d686ace2df
commit 5002045ef9
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Tiny_httpd_server.ml
View file

@ -852,8 +852,7 @@ let add_route_server_sent_handler ?accept self route f =
in in
add_route_handler_ self ?accept ~meth:`GET route ~tr_req f add_route_handler_ self ?accept ~meth:`GET route ~tr_req f
let add_upgrade_handler ?(accept = fun _ -> Ok ()) ?(middlewares = []) let add_upgrade_handler ?(accept = fun _ -> Ok ()) (self : t) route f : unit =
(self : t) route f : unit =
let ph req : handler_result option = let ph req : handler_result option =
if req.Request.meth <> `GET then if req.Request.meth <> `GET then
None None

1
src/Tiny_httpd_server.mli
View file

@ -679,7 +679,6 @@ type upgrade_handler = (module UPGRADE_HANDLER)
val add_upgrade_handler : val add_upgrade_handler :
?accept:(unit Request.t -> (unit, Response_code.t * string) result) -> ?accept:(unit Request.t -> (unit, Response_code.t * string) result) ->
?middlewares:Middleware.t list ->
t -> t ->
('a, upgrade_handler) Route.t -> ('a, upgrade_handler) Route.t ->
'a -> 'a ->