aboutsummaryrefslogtreecommitdiff
path: root/Utility/Bloom.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-09-12 12:26:12 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-09-12 12:26:12 -0400
commit3afcb1a449ecfee52419767957fa1f06673515b6 (patch)
treef727f5b1ffe24b1a6769ee38336e2e08e8ab23ab /Utility/Bloom.hs
parent006e5e7fea3925cd1f4c650cf42b020520742d70 (diff)
Rather than crashing when there's a problem with the requested bloomfilter capacity/accuracy, fall back to a reasonable default bloom filter size.
Diffstat (limited to 'Utility/Bloom.hs')
-rw-r--r--Utility/Bloom.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Bloom.hs b/Utility/Bloom.hs
index e3000de3d..b0988a8c4 100644
--- a/Utility/Bloom.hs
+++ b/Utility/Bloom.hs
@@ -9,7 +9,7 @@
module Utility.Bloom (
Bloom,
- suggestSizing,
+ safeSuggestSizing,
Hashable,
cheapHashes,
notElemB,
@@ -25,7 +25,7 @@ import qualified Data.BloomFilter as Bloom
#else
import qualified Data.BloomFilter as Bloom
#endif
-import Data.BloomFilter.Easy (suggestSizing, Bloom)
+import Data.BloomFilter.Easy (safeSuggestSizing, Bloom)
import Data.BloomFilter.Hash (Hashable, cheapHashes)
import Control.Monad.ST.Safe (ST)