From 4d69fd63b8af1aad376e4571173eacfb40c27b89 Mon Sep 17 00:00:00 2001
From: lassulus <lass@lassul.us>
Date: Sun, 30 Apr 2017 19:56:04 +0200
Subject: use Bloom.fromlist instead of Bloom.easyList

---
 news.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/news.hs b/news.hs
index ce48ccc..7c824e0 100644
--- a/news.hs
+++ b/news.hs
@@ -12,6 +12,7 @@ import Text.RSS.Syntax
 import qualified Text.Feed.Types as Feed
 import qualified Data.BloomFilter as Bloom
 import qualified Data.BloomFilter.Easy as Bloom
+import qualified Data.BloomFilter.Hash as Bloom
 import Control.Concurrent
 import System.Environment
 import System.IO
@@ -45,7 +46,8 @@ main = do
     hSetBuffering stdout LineBuffering
     [url, delayString] <- getArgs
     let delay = read delayString :: Int
-    rec url delay (Bloom.easyList 0.000001 ([] :: [BS.ByteString]))
+    let bloom0 = Bloom.fromList (Bloom.cheapHashes 3) 1024 [""]
+    rec url delay bloom0
     return ()
   where
     rec url delay bloom =
-- 
cgit v1.2.3