Move websocket/af type inequality workaround

See anmonteiro/httpun-ws#39.
aantron · Feb 8, 2022 · e533e70 · e533e70
1 parent f82a51b
commit e533e70
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/http/shared/websocket.ml b/src/http/shared/websocket.ml
@@ -236,3 +236,11 @@ let websocket_handler stream socket =
   outgoing_loop ();
 
   Websocketaf.Server_connection.{frame; eof}
+
+  (* TODO The equality between server and client input handlers is not
+     exposed in the websocketaf API.
+     https://github.com/anmonteiro/websocketaf/issues/39. *)
+let client_websocket_handler :
+    Stream.stream -> Websocketaf.Wsd.t ->
+      Websocketaf.Client_connection.input_handlers =
+  Obj.magic websocket_handler