add-server: use bigstringaf for bigstring type

inhabitedtype · Apr 20, 2019 · 2872a2e · 2872a2e
1 parent fee87a7
commit 2872a2e
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 14 deletions.
diff --git a/lib/server_connection.mli b/lib/server_connection.mli
@@ -36,7 +36,7 @@ module IOVec = Httpaf.IOVec
 type 'handle t
 
 type input_handlers =
-  { frame : opcode:Websocket.Opcode.t -> is_fin:bool -> Bigstring.t -> off:int -> len:int -> unit
+  { frame : opcode:Websocket.Opcode.t -> is_fin:bool -> Bigstringaf.t -> off:int -> len:int -> unit
   ; eof   : unit                                                                          -> unit }
 
 val create
@@ -45,10 +45,10 @@ val create
   -> 'handle t
 
 val next_read_operation  : _ t -> [ `Read | `Yield | `Close ]
-val next_write_operation : _ t -> [ `Write of Bigstring.t IOVec.t list | `Yield | `Close of int ]
+val next_write_operation : _ t -> [ `Write of Bigstringaf.t IOVec.t list | `Yield | `Close of int ]
 
-val read : _ t -> Bigstring.t -> off:int -> len:int -> int
-val read_eof : _ t -> Bigstring.t -> off:int -> len:int -> int
+val read : _ t -> Bigstringaf.t -> off:int -> len:int -> int
+val read_eof : _ t -> Bigstringaf.t -> off:int -> len:int -> int
 val report_write_result : _ t -> [`Ok of int | `Closed ] -> unit
 
 val yield_reader : _ t -> (unit -> unit) -> unit

diff --git a/lib/server_handshake.mli b/lib/server_handshake.mli
@@ -40,10 +40,10 @@ val create
   -> 'handle t
 
 val next_read_operation  : _ t -> [ `Read | `Close | `Yield ]
-val next_write_operation : _ t -> [ `Write of Bigstring.t IOVec.t list | `Yield | `Close of int ]
+val next_write_operation : _ t -> [ `Write of Bigstringaf.t IOVec.t list | `Yield | `Close of int ]
 
-val read : _ t -> Bigstring.t -> off:int -> len:int -> int
-val read_eof : _ t -> Bigstring.t -> off:int -> len:int -> int
+val read : _ t -> Bigstringaf.t -> off:int -> len:int -> int
+val read_eof : _ t -> Bigstringaf.t -> off:int -> len:int -> int
 val report_write_result : _ t -> [`Ok of int | `Closed ] -> unit
 
 val yield_reader : _ t -> (unit -> unit) -> unit

diff --git a/lib/server_websocket.ml b/lib/server_websocket.ml
@@ -38,8 +38,8 @@ type t =
   ; wsd    : Wsd.t }
 
 type input_handlers =
-  { frame : opcode:Websocket.Opcode.t -> is_fin:bool -> Bigstring.t -> off:int -> len:int -> unit
-  ; eof   : unit                                                                          -> unit }
+  { frame : opcode:Websocket.Opcode.t -> is_fin:bool -> Bigstringaf.t -> off:int -> len:int -> unit
+  ; eof   : unit                                                                            -> unit }
 
 let create ~websocket_handler =
   let mode         = `Server in

diff --git a/lib/server_websocket.mli b/lib/server_websocket.mli
@@ -36,18 +36,18 @@ module IOVec = Httpaf.IOVec
 type t
 
 type input_handlers =
-  { frame : opcode:Websocket.Opcode.t -> is_fin:bool -> Bigstring.t -> off:int -> len:int -> unit
-  ; eof   : unit                                                                          -> unit }
+  { frame : opcode:Websocket.Opcode.t -> is_fin:bool -> Bigstringaf.t -> off:int -> len:int -> unit
+  ; eof   : unit                                                                            -> unit }
 
 val create
   :  websocket_handler : (Wsd.t -> input_handlers)
   -> t
 
 val next_read_operation  : t -> [ `Read | `Close ]
-val next_write_operation : t -> [ `Write of Bigstring.t IOVec.t list | `Yield | `Close of int ]
+val next_write_operation : t -> [ `Write of Bigstringaf.t IOVec.t list | `Yield | `Close of int ]
 
-val read : t -> Bigstring.t -> off:int -> len:int -> int
-val read_eof : t -> Bigstring.t -> off:int -> len:int -> int
+val read : t -> Bigstringaf.t -> off:int -> len:int -> int
+val read_eof : t -> Bigstringaf.t -> off:int -> len:int -> int
 val report_write_result : t -> [`Ok of int | `Closed ] -> unit
 
 val yield_writer : t -> (unit -> unit) -> unit