bytestring-arbitrary 0.0.1 → 0.0.2

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

• bytestring-arbitrary.cabal +1/−1
• src/Data/ByteString/Arbitrary.hs +1/−1

@@ -2,7 +2,7 @@ --  documentation, see http://haskell.org/cabal/users-guide/  name:                bytestring-arbitrary-version:             0.0.1+version:             0.0.2 synopsis:            Arbitrary instances for ByteStrings -- description:          homepage:            https://github.com/tsuraan/bytestring-arbitrary

@@ -66,7 +66,7 @@     then return preChunks     else do       rSeed <- slowRandBs $ 16-      let hashes = tail $ iterate (hash $ 8*perChunk) rSeed+      let hashes = tail $ iterate ( hash (8*perChunk) . BS.take 32 ) rSeed       return $ BS.concat $ preChunks : take rounds hashes  -- | Generate binary data slowly. This generates a list of Word8s, and then