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/primes.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/primes.ml')

diff --git a/src/primes.ml b/src/primes.ml
index 21d979a..a95fb64 100644
--- a/src/primes.ml
+++ b/src/primes.ml
@@ -26,7 +26,7 @@ module Primes (K : Kahn.S) = struct
       (get qi) >>= (fun v ->
         if v <> -1 then
           begin
-            Format.eprintf "%d@." v;
+            K.output @@ Format.sprintf "%d@." v;
             (delay new_channel ()) >>=
             (fun (qi2, qo2) -> doco [ filter v qi qo2 ; primes qi2 ])
           end 
-- 
cgit v1.2.3