Delete remaining pieces to bigstringaf

Author: dinosaure

src/http_miou_client.ml

@@ -14,7 +14,7 @@ module H1_Client_connection = struct
   let next_write_operation t =
     (next_write_operation t
       :> [ `Close of int
-         | `Write of Bigstringaf.t Faraday.iovec list
+         | `Write of Bstr.t Faraday.iovec list
          | `Yield
          | `Upgrade ])
 end
@@ -28,7 +28,7 @@ module H2_Client_connection = struct
   let next_write_operation t =
     (next_write_operation t
       :> [ `Close of int
-         | `Write of Bigstringaf.t Faraday.iovec list
+         | `Write of Bstr.t Faraday.iovec list
          | `Yield
          | `Upgrade ])
 end

src/http_miou_server.ml

@@ -401,7 +401,7 @@ module Websocket_connection = struct
 
   let next_write_operation t =
     (next_write_operation t
-      :> [ `Write of Bigstringaf.t Faraday.iovec list
+      :> [ `Write of Bstr.t Faraday.iovec list
          | `Close of int
          | `Yield
          | `Upgrade ])

test/test.ml

@@ -242,7 +242,7 @@ let fold_http_1_1 ~finally ~f acc body =
   let acc = ref acc in
   let rec on_eof () = Body.Reader.close body; finally !acc
   and on_read bstr ~off ~len =
-    let str = Bigstringaf.substring bstr ~off ~len in
+    let str = Bstr.sub_string bstr ~off ~len in
     Logs.debug (fun m -> m "Feed the context");
     acc := f !acc str;
     Body.Reader.schedule_read body ~on_eof ~on_read
@@ -254,7 +254,7 @@ let fold_h2 ~finally ~f acc body =
   let acc = ref acc in
   let rec on_eof () = Body.Reader.close body; finally !acc
   and on_read bstr ~off ~len =
-    let str = Bigstringaf.substring bstr ~off ~len in
+    let str = Bstr.sub_string bstr ~off ~len in
     Logs.debug (fun m -> m "Feed the context");
     acc := f !acc str;
     Body.Reader.schedule_read body ~on_eof ~on_read