From 4a5ca97b0970e191332fb6fb4684a397b93390f5 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
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_pipe.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/kahn_pipe.ml')

diff --git a/src/kahn_pipe.ml b/src/kahn_pipe.ml
index 9f3da0a..2df8bc5 100644
--- a/src/kahn_pipe.ml
+++ b/src/kahn_pipe.ml
@@ -18,6 +18,8 @@ module Pipe: S = struct
         fun () ->
           Marshal.to_channel c x [];
           flush c
+	
+	let output s = Format.printf "%s@?" s
     
     let try_get block prt_list =
         let fds = List.map fst prt_list in
@@ -52,7 +54,6 @@ module Pipe: S = struct
 
     let bind e f =
         fun () -> f (e ()) ()
-    let bind_io = bind
 
     let run p =
         p()
-- 
cgit v1.2.3