raise Bloomfilter size to 4096

1 files changed, 1 insertions, 1 deletions

diff --git a/news.hs b/news.hs
index 7c824e0..7004398 100644
--- a/news.hs
+++ b/news.hs
@@ -46,7 +46,7 @@ main = do
     hSetBuffering stdout LineBuffering
     [url, delayString] <- getArgs
     let delay = read delayString :: Int
-    let bloom0 = Bloom.fromList (Bloom.cheapHashes 3) 1024 [""]
+    let bloom0 = Bloom.fromList (Bloom.cheapHashes 3) 4096 [""]
     rec url delay bloom0
     return ()
   where