pkgs/development/haskell-modules/patches/bloomfilter-fix-on-32bit.patch

   1 From 35d972b3dc5056110d55315f2256d9c5046299c7 Mon Sep 17 00:00:00 2001
   2 From: Peter Simons <simons@cryp.to>
   3 Date: Tue, 1 Sep 2015 17:58:36 +0200
   4 Subject: [PATCH] Revert "Fix maximum sizing calculation."
   5
   6 This reverts commit 44b01ba38b4fcdb5a85f44fa2f3af1f29cde8f40. The change breaks
   7 this package on 32 bit platforms. See https://github.com/bos/bloomfilter/issues/7
   8 for further details.
   9 ---
  10  Data/BloomFilter/Easy.hs | 2 +-
  11  1 file changed, 1 insertion(+), 1 deletion(-)
  12
  13 diff --git a/Data/BloomFilter/Easy.hs b/Data/BloomFilter/Easy.hs
  14 index 5143c6e..a349168 100644
  15 --- a/Data/BloomFilter/Easy.hs
  16 +++ b/Data/BloomFilter/Easy.hs
  17 @@ -72,7 +72,7 @@ safeSuggestSizing capacity errRate
  18              minimum [((-k) * cap / log (1 - (errRate ** (1 / k))), k)
  19                       | k <- [1..100]]
  20          roundedBits = nextPowerOfTwo (ceiling bits)
  21 -    in if roundedBits <= 0 || roundedBits > 0xffffffff
  22 +    in if roundedBits <= 0
  23         then Left  "capacity too large to represent"
  24         else Right (roundedBits, truncate hashes)
  25
  26 --
  27 2.5.1
  28