Restrict read return type

dm04806 · Feb 28, 2012 · 40188ee · 40188ee
1 parent 3360d75
commit 40188ee
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/release_ipc.ml b/lib/release_ipc.ml
@@ -17,7 +17,7 @@ module type S = sig
 
   val read : ?timeout:float
           -> Lwt_unix.file_descr
-          -> [> `Data of string | `EOF | `Timeout ] Lwt.t
+          -> [`Data of string | `EOF | `Timeout] Lwt.t
 
   val write : Lwt_unix.file_descr -> string -> unit Lwt.t
 

diff --git a/lib/release_ipc.mli b/lib/release_ipc.mli
@@ -15,7 +15,7 @@ module type S = sig
 
   val read : ?timeout:float
           -> Lwt_unix.file_descr
-          -> [> `Data of string | `EOF | `Timeout ] Lwt.t
+          -> [`Data of string | `EOF | `Timeout] Lwt.t
 
   val write : Lwt_unix.file_descr -> string -> unit Lwt.t