Another redundant constraint
This commit is contained in:
parent
90d2c7fa90
commit
50e4ec36c7
1 changed files with 1 additions and 1 deletions
|
@ -49,5 +49,5 @@ genBloomFilter populate = do
|
|||
where
|
||||
lift = liftIO . stToIO
|
||||
|
||||
bloomFilter :: Hashable v => [v] -> Bloom v -> [v]
|
||||
bloomFilter :: [v] -> Bloom v -> [v]
|
||||
bloomFilter l bloom = filter (\v -> v `notElemB` bloom) l
|
||||
|
|
Loading…
Reference in a new issue