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_stdio.ml | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'src/kahn_stdio.ml') diff --git a/src/kahn_stdio.ml b/src/kahn_stdio.ml index a149742..badf338 100644 --- a/src/kahn_stdio.ml +++ b/src/kahn_stdio.ml @@ -45,6 +45,8 @@ module ProtoKahn: S = struct ) ) + let output s = send (Output s) + let select pl = fun cont -> assert false let select_default = fun cont -> assert false @@ -74,14 +76,6 @@ module ProtoKahn: S = struct a (Some (fun va -> let b = (f va) in b cont)) - let bind_io a f = - fun cont -> - a (Some (fun va -> - send_task - (fun () -> - let b = f va in - send_task (fun () -> b cont) false) - true)) let origin = ref false let dbg_out = ref false -- cgit v1.2.3