From fc00737409406536adf0b55196df56f1f0b92220 Mon Sep 17 00:00:00 2001
From: lassulus <lass@lassul.us>
Date: Tue, 9 May 2017 13:27:15 +0200
Subject: raise bloomfiler size again

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

diff --git a/news.hs b/news.hs
index 10fd877..7432391 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) 4096 [""]
+    let bloom0 = Bloom.fromList (Bloom.cheapHashes 17) (2^10 * 1000) [""]
     rec url delay bloom0
     return ()
   where
-- 
cgit v1.2.3