Add a handler on an endpoint, that serves server-sent events.
The callback is given a generator that can be used to send events as it pleases. The connection is always closed by the client, and the accepted method is always GET. This will set the header "content-type" to "text/event-stream" automatically and reply with a 200 immediately. See server_sent_generator for more details.
This handler stays on the original thread (it is synchronous).
These handlers upgrade the connection to another protocol.
module type UPGRADE_HANDLER = Tiny_httpd_server.UPGRADE_HANDLERHandler that upgrades to another protocol.
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 ->
diff --git a/tiny_httpd/Tiny_httpd_server/index.html b/tiny_httpd/Tiny_httpd_server/index.html
index f10c2a9b..5c97a568 100644
--- a/tiny_httpd/Tiny_httpd_server/index.html
+++ b/tiny_httpd/Tiny_httpd_server/index.html
@@ -47,7 +47,6 @@
'a ->
unitAdd a handler on an endpoint, that serves server-sent events.
The callback is given a generator that can be used to send events as it pleases. The connection is always closed by the client, and the accepted method is always GET. This will set the header "content-type" to "text/event-stream" automatically and reply with a 200 immediately. See server_sent_generator for more details.
This handler stays on the original thread (it is synchronous).
These handlers upgrade the connection to another protocol.
module type UPGRADE_HANDLER = sig ... endHandler that upgrades to another protocol.
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 ->