From 8456506c0b9c8e78eec2cc464851cef36ca03398 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Sun, 25 May 2014 21:54:20 +0200
Subject: Revise build system.

---
 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 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
-- 
cgit v1.2.3