updates

Author: anmonteiro

dune-project

@@ -56,7 +56,10 @@
    (= :version))
   (faraday-lwt-unix
    (>= "0.7.3")))
- (depopts lwt_ssl tls))
+ (depopts
+  (lwt_ssl
+   (>= "1.2.0"))
+  tls))
 
 (package
  (name gluten-mirage)

eio/gluten_eio.ml

@@ -208,7 +208,7 @@ module Client = struct
   let shutdown t =
     t.shutdown_reader ();
     Gluten.Client.shutdown t.connection;
-    Promise.await t.shutdown_complete
+    t.shutdown_complete
 
   let is_closed t = Gluten.Client.is_closed t.connection
   let socket t = t.socket

eio/gluten_eio.mli

@@ -62,7 +62,7 @@ module Client : sig
     -> t
 
   val upgrade : t -> Gluten.impl -> unit
-  val shutdown : t -> unit
+  val shutdown : t -> unit Eio.Promise.t
   val is_closed : t -> bool
   val socket : t -> Eio.Flow.two_way
 end

gluten-lwt-unix.opam

@@ -12,7 +12,10 @@ depends: [
   "gluten-lwt" {= version}
   "faraday-lwt-unix" {>= "0.7.3"}
 ]
-depopts: ["lwt_ssl" "tls"]
+depopts: [
+  "lwt_ssl" {>= "1.2.0"}
+  "tls"
+]
 build: [
   ["dune" "subst"] {pinned}
   [

lib/gluten.mli

@@ -34,30 +34,22 @@ module type RUNTIME = sig
   type t
 
   val next_read_operation : t -> [ `Read | `Yield | `Close ]
-
   val read : t -> Bigstringaf.t -> off:int -> len:int -> int
-
   val read_eof : t -> Bigstringaf.t -> off:int -> len:int -> int
-
   val yield_reader : t -> (unit -> unit) -> unit
 
   val next_write_operation
     :  t
     -> [ `Write of Bigstringaf.t Faraday.iovec list | `Yield | `Close of int ]
 
   val report_write_result : t -> [ `Ok of int | `Closed ] -> unit
-
   val yield_writer : t -> (unit -> unit) -> unit
-
   val report_exn : t -> exn -> unit
-
   val is_closed : t -> bool
-
   val shutdown : t -> unit
 end
 
 type 't runtime = (module RUNTIME with type t = 't)
-
 type impl
 
 val make : 't runtime -> 't -> impl
@@ -73,7 +65,6 @@ module Server : sig
   include RUNTIME
 
   val create : protocol:'t runtime -> 't -> t
-
   val upgrade_protocol : t -> impl -> unit
 
   type 'reqd request_handler = 'reqd Reqd.t -> unit
@@ -89,7 +80,6 @@ module Client : sig
   include RUNTIME
 
   val create : protocol:'t runtime -> 't -> t
-
   val upgrade_protocol : t -> impl -> unit
 end
 
@@ -103,7 +93,6 @@ module Buffer : sig
   type t
 
   val create : int -> t
-
   val get : t -> f:(Bigstringaf.t -> off:int -> len:int -> int) -> int
 
   val put