diff options
author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 01:00:44 +0200 |
---|---|---|
committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 01:00:44 +0200 |
commit | 4a5ca97b0970e191332fb6fb4684a397b93390f5 (patch) | |
tree | b833cd9bf8f21514f5c0ae2ece473ac398aff251 /src/primes.ml | |
parent | 6e750a757ef6fb1f41cf4c2fe39edba834b76858 (diff) | |
download | SystemeReseaux-Projet-4a5ca97b0970e191332fb6fb4684a397b93390f5.tar.gz SystemeReseaux-Projet-4a5ca97b0970e191332fb6fb4684a397b93390f5.zip |
./manager -pool-addr mypool -pool-count 16 -my-addr my_addr ./example.native
Diffstat (limited to 'src/primes.ml')
-rw-r--r-- | src/primes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |