From c6466a719d784054a82578c619e7dfff613e777b Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@google.com>
Date: Tue, 31 Jul 2018 17:48:05 -0400
Subject: Begin implementing HKDF

Implement the `extract` phase of HKDF.
---
 src/Data/HMAC.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/Data')

diff --git a/src/Data/HMAC.hs b/src/Data/HMAC.hs
index 4c424be..85e6886 100644
--- a/src/Data/HMAC.hs
+++ b/src/Data/HMAC.hs
@@ -31,14 +31,10 @@ import Data.Digest.Internal
 import Foreign.Ptr.ConstantTimeEquals (constantTimeEquals)
 import Internal.Base
 import Internal.HMAC
+import Types (SecretKey(SecretKey))
 
 type LazyByteString = ByteString.Lazy.ByteString
 
--- | A secret key used as input to a cipher or HMAC. Equality comparisons on
--- this type are variable-time.
-newtype SecretKey = SecretKey ByteString
-  deriving (Eq, Ord, Show)
-
 -- | A hash-based message authentication code. Equality comparisons on this type
 -- are constant-time.
 newtype HMAC = HMAC ByteString
-- 
cgit v1.2.3