wip

anmonteiro · Aug 1, 2023 · 3008441 · 3008441
1 parent f2e49e8
commit 3008441
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 14 deletions.
diff --git a/examples/eio/eio_wscat.ml b/examples/eio/eio_wscat.ml
@@ -25,7 +25,7 @@ let rec stdin_loop ~stdin buf wsd =
     Ws.Descriptor.send_ping ~application_data wsd;
     stdin_loop ~stdin buf wsd
   | line ->
-    Ws.Descriptor.send_stringy wsd line;
+    Ws.Descriptor.send_string wsd line;
     stdin_loop ~stdin buf wsd
 
 let request ~env ~sw host =

diff --git a/lib/ws.ml b/lib/ws.ml
@@ -39,19 +39,6 @@ let upgrade_request ~headers ~scheme ~nonce target =
     ~scheme
     (Websocketaf.Handshake.create_request ~nonce ~headers target)
 
-module Opcode = struct
-  type t = Websocket.Opcode.t
-
-  let to_string = function
-    | `Continuation -> "Continuation"
-    | `Text -> "Text"
-    | `Binary -> "Binary"
-    | `Connection_close -> "Connection_close"
-    | `Ping -> "Ping"
-    | `Pong -> "Pong"
-    | `Other code -> Format.asprintf "Custom: %x" code
-end
-
 module Message = struct
   type t = Websocket.Opcode.t * Bigstringaf.t IOVec.t
 end