Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: cb78a2554f
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (10 sloc) 0.354 kB
import Control.Arrow
import Data.ByteString.Lazy.Char8
import Data.Digest.Pure.MD5
import Test.QuickCheck
instance Arbitrary Char where
arbitrary = choose ('A', 'Z')
md5parts =
(uncurry ((md5Finalize .) . md5Update . md5Update md5InitialContext) .)
. curry (pack *** pack)
prop_md5 xs ys = show (md5 (pack (xs ++ ys))) == show (md5parts xs ys)
Jump to Line
Something went wrong with that request. Please try again.