Another redundant constraint

This commit is contained in:
Gabor Greif 2016-01-27 14:43:23 +01:00 committed by Joey Hess
parent 90d2c7fa90
commit 50e4ec36c7
Failed to extract signature

View file

@ -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