Use unsafeDrop

Ignore-this: a5e35bb33228ace2f6f4c55f20e9eece

darcs-hash:20101026223703-cef97-a8a4f42c55502a1d6fd35b8fb55104d58588302d.gz

Author: TomMD

CHANGES

@@ -1,3 +1,15 @@
+2.1.0.3
+* Fix the .cabal to remove the test build deps unless the test flag is set
+
+2.1.0.2
+* Use "unsafeDrop" for a small performance win.  This should be automaticly recognized by the compiler some day.
+
+2.1.0.1
+* Automatically use faster getNthWord on x86.  Unpack more data types.
+
+2.1.0.0
+* Tighen build deps
+
 2.0.0.0
 * Support crypto-api classes
 * Use crypto-api test cases

Data/Digest/Pure/MD5.hs

@@ -36,6 +36,7 @@ module Data.Digest.Pure.MD5
 import Data.ByteString.Unsafe (unsafeUseAsCString)
 import qualified Data.ByteString as B
 import qualified Data.ByteString.Lazy as L
+import Data.ByteString.Unsafe (unsafeDrop)
 import Data.ByteString.Internal
 import Data.Bits
 import Data.List
@@ -121,7 +122,7 @@ blockAndDo !ctx bs
   | B.length bs == 0 = ctx
   | otherwise = 
 	let !new = performMD5Update ctx bs
-	in blockAndDo new (B.drop blockSizeBytes bs)
+	in blockAndDo new (unsafeDrop blockSizeBytes bs)
 {-# INLINE blockAndDo #-}
 
 -- Assumes ByteString length == blockSizeBytes, will fold the 

pureMD5.cabal

@@ -1,5 +1,5 @@
 name:		pureMD5
-version:	2.1.0.1
+version:	2.1.0.3
 license:	BSD3
 license-file:	LICENSE
 author:		Thomas DuBuisson <thomas.dubuisson@gmail.com>
@@ -28,6 +28,7 @@ Library
 
 Executable md5Test
   main-is: Test/main.hs
-  Build-Depends: base, QuickCheck, crypto-api, bytestring, cereal
+  if flag(test)
+    Build-Depends: base, QuickCheck, crypto-api, bytestring, cereal
   if !flag(test)
     buildable: False