From 2d66c7d508f6bd198969012241082e34a5b6047c Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Thu, 11 Dec 2014 14:27:46 +0100
Subject: CThread: use a different type for thread friendly in_channels

---
 lib/cThread.mli | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'lib/cThread.mli')

diff --git a/lib/cThread.mli b/lib/cThread.mli
index ada492dd40..d68a392d1e 100644
--- a/lib/cThread.mli
+++ b/lib/cThread.mli
@@ -14,11 +14,13 @@
  * an unbounded wait has the same problem. *)
 
 (* Use only the following functions on the channel *)
-val prepare_in_channel_for_thread_friendly_io : in_channel -> unit
-val thread_friendly_input_value : in_channel -> 'a
+type thread_ic
+val prepare_in_channel_for_thread_friendly_io : in_channel -> thread_ic
+
+val thread_friendly_input_value : thread_ic -> 'a
 val thread_friendly_read :
-  in_channel -> string -> off:int -> len:int -> int
+  thread_ic -> string -> off:int -> len:int -> int
 val thread_friendly_really_read :
-  in_channel -> string -> off:int -> len:int -> unit
-val thread_friendly_really_read_line : in_channel -> string
+  thread_ic -> string -> off:int -> len:int -> unit
+val thread_friendly_really_read_line : thread_ic -> string
 
-- 
cgit v1.2.3