tls-mirage: provide underlying : flow -> FLOW.flow

fixes #425
mirleft · Jan 4, 2024 · 1ad08b6 · 1ad08b6
1 parent 5e8050c
commit 1ad08b6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/mirage/tls_mirage.ml b/mirage/tls_mirage.ml
@@ -131,6 +131,8 @@ module Make (F : Mirage_flow.S) = struct
 
   type wr_or_msg = [ write_error | `Msg of string ]
 
+  let underlying flow = flow.flow
+
   let reneg ?authenticator ?acceptable_cas ?cert ?(drop = true) flow =
     match flow.state with
     | `Eof        -> Lwt.return @@ Error `Closed

diff --git a/mirage/tls_mirage.mli b/mirage/tls_mirage.mli
@@ -20,6 +20,9 @@ module Make (F : Mirage_flow.S) : sig
     with type error := error
      and type write_error := write_error
 
+  (** [underlying t] returns the underlying flow. This is useful to extract
+      information such as [src] and [dst] of that flow. *)
+  val underlying : flow -> FLOW.flow
 
   (** [reneg ~authenticator ~acceptable_cas ~cert ~drop t] renegotiates the
       session, and blocks until the renegotiation finished.  Optionally, a new