From ae869bddc049a71c1aa945d4e157eeb1d1bc879a Mon Sep 17 00:00:00 2001
From: ygrek <ygrek@autistici.org>
Date: Mon, 26 Jul 2010 12:39:14 +0300
Subject: [PATCH] translate EV_READ|EV_WRITE event type to READ

---
 liboevent.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/liboevent.ml b/liboevent.ml
index 5836d20..77d1e1a 100644
--- a/liboevent.ml
+++ b/liboevent.ml
@@ -25,8 +25,9 @@ let event_type_of_int = function
   | 1 -> TIMEOUT
   | 2 -> READ
   | 4 -> WRITE
+  | 6 -> READ (* READ|WRITE *)
   | 8 -> SIGNAL
-  | _ -> raise (Invalid_argument "event_type")
+  | n -> raise (Invalid_argument (Printf.sprintf "event_type %d" n))
 
 type event_callback = Unix.file_descr -> event_flags -> unit
 
-- 
2.11.4.GIT