pureMD5 2.1.3 → 2.1.4

raw patch · 3 files changed

+12/−12 lines, 3 files

Files

• Data/Digest/Pure/MD5.hs +11/−2
• Test/MD5.hs +0/−8
• pureMD5.cabal +1/−2

@@ -92,7 +92,8 @@ h3 = 0x10325476  -- | Processes a lazy ByteString and returns the md5 digest.---   This is probably what you want.+--   This is probably what you want. You can use 'show' to produce the standard hex+-- representation. md5 :: L.ByteString -> MD5Digest md5 = hash @@ -140,7 +141,15 @@ {-# INLINE performMD5Update #-}  isAligned :: ByteString -> Bool+#if !MIN_VERSION_bytestring(0,11,0) isAligned (PS _ off _) = off `rem` 4 == 0+#else+isAligned = const True+-- This is semantically equivalent to the definition above, because+-- in bytestring-0.11 offset is always 0. Note that neither definition checks+-- that a pointer (the first field of 'PS') is aligned. Anyways 'isAligned'+-- is used for optimization purposes only and does not affect correctness.+#endif  applyMD5Rounds :: MD5Partial -> ByteString -> MD5Partial applyMD5Rounds (MD5Par a b c d) w = {-# SCC "applyMD5Rounds" #-}@@ -259,7 +268,7 @@ -- | The raw bytes of an 'MD5Digest'. It is always 16 bytes long. -- -- You can also use the 'Binary' or 'S.Serialize' instances to output the raw--- bytes. Alternatively you can use 'show' to prodce the standard hex+-- bytes. Alternatively you can use 'show' to produce the standard hex -- representation. -- md5DigestBytes :: MD5Digest -> B.ByteString

@@ -1,8 +0,0 @@-{-# LANGUAGE ExistentialQuantification #-}-module Test.MD5 where--import Test.QuickCheck-import Test.Crypto-import Data.Digest.Pure.MD5--test = runTests (makeMD5Tests (undefined :: MD5Digest))

@@ -1,5 +1,5 @@ name:		pureMD5-version:	2.1.3+version:	2.1.4 license:	BSD3 license-file:	LICENSE author:		Thomas DuBuisson <thomas.dubuisson@gmail.com>@@ -12,7 +12,6 @@ build-type:	Simple cabal-version:	>= 1.10 tested-with:	GHC == 7.10.3-extra-source-files: Test/MD5.hs  flag test   description: Build a test program