aboutsummaryrefslogtreecommitdiffstats
path: root/src/primes.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/primes.ml')
-rw-r--r--src/primes.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/primes.ml b/src/primes.ml
index 592fdc9..a91b11c 100644
--- a/src/primes.ml
+++ b/src/primes.ml
@@ -36,7 +36,7 @@ module Primes (K : Kahn.S) = struct
let main : int process =
(delay new_channel ()) >>=
- (fun (q_in, q_out) -> doco [ integers 500 q_out ; primes q_in ])
+ (fun (q_in, q_out) -> doco [ integers 2000 q_out ; primes q_in ])
>>= (fun () -> return 42)
end