From 7a762c1ce1f7c047d47b93e888467963578b9b58 Mon Sep 17 00:00:00 2001 From: Prashanth Mundkur Date: Tue, 30 Jun 2009 16:23:36 -0700 Subject: [PATCH] [async_conn] allow access to fd --- common/async_conn.ml | 1 + common/async_conn.mli | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/common/async_conn.ml b/common/async_conn.ml index 2570beb..d546330 100644 --- 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 dde9327..c175352 100644 --- 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 -- 2.39.5