From 0ed87caa3481cbb6f8c2e809e5ec7df6f6245406 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Fri, 23 Mar 2018 18:34:42 -0400 Subject: Data.Digest: Reify hash algorithms MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Eliminate the functional interface for hashing. Hashing now occurs exclusively through the `hash` function, which accepts a `Data.Digest.Algorithm`. This makes btls somewhat less extensible, but it’s the most elegant way to support HMACs. --- src/Data/Digest/Md5.hs | 12 ------------ 1 file changed, 12 deletions(-) delete mode 100644 src/Data/Digest/Md5.hs (limited to 'src/Data/Digest/Md5.hs') diff --git a/src/Data/Digest/Md5.hs b/src/Data/Digest/Md5.hs deleted file mode 100644 index 194633b..0000000 --- a/src/Data/Digest/Md5.hs +++ /dev/null @@ -1,12 +0,0 @@ -module Data.Digest.Md5 - ( md5 - ) where - -import Data.ByteString.Lazy (ByteString) - -import Data.Digest.Internal - -foreign import ccall "openssl/digest.h EVP_md5" evpMd5 :: Algo - -md5 :: ByteString -> Digest -md5 = hash evpMd5 -- cgit v1.2.3