From 5002045ef97f00f3c8dc93a0f9eaefa3a8f2db2f Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 12 Feb 2024 16:19:36 -0500 Subject: [PATCH] fix warning --- src/Tiny_httpd_server.ml | 3 +-- src/Tiny_httpd_server.mli | 1 - 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/src/Tiny_httpd_server.ml b/src/Tiny_httpd_server.ml index 7dcd466e..103533ca 100644 --- a/src/Tiny_httpd_server.ml +++ b/src/Tiny_httpd_server.ml @@ -852,8 +852,7 @@ let add_route_server_sent_handler ?accept self route f = in add_route_handler_ self ?accept ~meth:`GET route ~tr_req f -let add_upgrade_handler ?(accept = fun _ -> Ok ()) ?(middlewares = []) - (self : t) route f : unit = +let add_upgrade_handler ?(accept = fun _ -> Ok ()) (self : t) route f : unit = let ph req : handler_result option = if req.Request.meth <> `GET then None diff --git a/src/Tiny_httpd_server.mli b/src/Tiny_httpd_server.mli index 591fff94..b91022d2 100644 --- a/src/Tiny_httpd_server.mli +++ b/src/Tiny_httpd_server.mli @@ -679,7 +679,6 @@ type upgrade_handler = (module UPGRADE_HANDLER) val add_upgrade_handler : ?accept:(unit Request.t -> (unit, Response_code.t * string) result) -> - ?middlewares:Middleware.t list -> t -> ('a, upgrade_handler) Route.t -> 'a ->