diff options
| author |  Benjamin Barenblat <bbaren@google.com> | 2018-08-02 16:43:43 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@google.com> | 2018-08-02 16:43:43 -0400 |
| commit | a70d7fa4a478753e0ab765fb05559e1769760232 (patch) | |
| tree | 9e1385446eb1914a5c1eed5f0a434a0e5549365e /src/Codec/Crypto/HKDF.hs | |
| parent | c6466a719d784054a82578c619e7dfff613e777b (diff) | |
Codec.Crypto.HKDF: Add test 7 from RFC 5869
Diffstat (limited to 'src/Codec/Crypto/HKDF.hs')
| -rw-r--r-- | src/Codec/Crypto/HKDF.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Codec/Crypto/HKDF.hs b/src/Codec/Crypto/HKDF.hs index bb29ca6..8e81fd1 100644 --- a/src/Codec/Crypto/HKDF.hs +++ b/src/Codec/Crypto/HKDF.hs @@ -13,7 +13,7 @@ -- the License. module Codec.Crypto.HKDF - ( Salt(Salt), SecretKey(SecretKey) + ( Salt(Salt), SecretKey(SecretKey), noSalt , extract ) where @@ -27,7 +27,7 @@ import Unsafe.Coerce (unsafeCoerce) import Data.Digest.Internal (Algorithm(Algorithm)) import Internal.Digest (evpMaxMDSize) import Internal.HKDF -import Types (Salt(Salt), SecretKey(SecretKey)) +import Types (Salt(Salt), SecretKey(SecretKey), noSalt) -- | Computes an HKDF pseudorandom key (PRK) as specified by RFC 5869. extract :: Algorithm -> Salt -> SecretKey -> SecretKey |