From 4a5ca97b0970e191332fb6fb4684a397b93390f5 Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Sun, 25 May 2014 01:00:44 +0200 Subject: ./manager -pool-addr mypool -pool-count 16 -my-addr my_addr ./example.native --- src/kahn.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/kahn.ml') diff --git a/src/kahn.ml b/src/kahn.ml index 08eac19..a458724 100644 --- a/src/kahn.ml +++ b/src/kahn.ml @@ -7,6 +7,8 @@ module type S = sig val put: 'a -> 'a out_port -> unit process val get: 'a in_port -> 'a process + val output: string -> unit + val select: ('a in_port * ('a -> 'b)) list -> 'b process val select_default: ('a in_port * ('a -> 'b)) list -> (unit -> 'b) -> 'b process @@ -14,7 +16,6 @@ module type S = sig val return: 'a -> 'a process val bind: 'a process -> ('a -> 'b process) -> 'b process - val bind_io: 'a process -> ('a -> 'b process) -> 'b process val run: 'a process -> 'a end -- cgit v1.2.3