From 40d50ae2ecc727e0035b552f4e116513dc2e3088 Mon Sep 17 00:00:00 2001
From: lassulus <lass@lassul.us>
Date: Tue, 2 May 2017 19:58:44 +0200
Subject: raise Bloomfilter size to 4096

---
 news.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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