From 0ed87caa3481cbb6f8c2e809e5ec7df6f6245406 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@google.com>
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/Sha1.hs | 12 ------------
 1 file changed, 12 deletions(-)
 delete mode 100644 src/Data/Digest/Sha1.hs

(limited to 'src/Data/Digest/Sha1.hs')

diff --git a/src/Data/Digest/Sha1.hs b/src/Data/Digest/Sha1.hs
deleted file mode 100644
index 16101b0..0000000
--- a/src/Data/Digest/Sha1.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-module Data.Digest.Sha1
-  ( sha1
-  ) where
-
-import Data.ByteString.Lazy (ByteString)
-
-import Data.Digest.Internal
-
-foreign import ccall "openssl/digest.h EVP_sha1" evpSha1 :: Algo
-
-sha1 :: ByteString -> Digest
-sha1 = hash evpSha1
-- 
cgit v1.2.3