From: Prashanth Mundkur <prashanth.mundkur@citrix.com>
Date: Tue, 30 Jun 2009 23:23:36 +0000 (-0700)
Subject: [async_conn] allow access to fd
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=7a762c1ce1f7c047d47b93e888467963578b9b58;p=xenclient%2Ftoolstack.git

[async_conn] allow access to fd
---

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