summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorlassulus <lass@lassul.us>2017-05-02 19:58:44 +0200
committerlassulus <lass@lassul.us>2017-05-02 19:58:44 +0200
commit40d50ae2ecc727e0035b552f4e116513dc2e3088 (patch)
tree0cfb74e36da3d742d193242d2cd1b9ecd44c1565
parent4d69fd63b8af1aad376e4571173eacfb40c27b89 (diff)
raise Bloomfilter size to 4096
-rw-r--r--news.hs2
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