From 40d50ae2ecc727e0035b552f4e116513dc2e3088 Mon Sep 17 00:00:00 2001 From: lassulus 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