[async_conn] allow access to fd

diff --git a/common/async_conn.ml b/common/async_conn.ml
index 2570beb839ad42108094649624504b4bf6f5b668..d546330eb2171819d91367f33954a9bcab4d4a86 100644 (file)
--- a/common/async_conn.ml
+++ b/common/async_conn.ml
@@ -165,3 +165,4 @@ let set_callbacks conn callbacks =
 
 let get_handle conn = conn.ev_handle
 let get_eventloop conn = conn.ev_loop
+let get_fd conn = conn.ev_fd

diff --git a/common/async_conn.mli b/common/async_conn.mli
index dde9327597a9417eb521045df0d0c3e118558ee4..c1753524ec78d5cfc9cf39cbc026295fe814e3ff 100644 (file)
--- a/common/async_conn.mli
+++ b/common/async_conn.mli
@@ -51,4 +51,4 @@ val set_callbacks : t -> callbacks -> unit
 
 val get_handle : t -> Eventloop.handle
 val get_eventloop : t -> Eventloop.t
-
+val get_fd : t -> Unix.file_descr