haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

making PRK an instance of ByteArrayAccess and removing fromPRK/toPRK.

Browse Source
This commit is contained in:
Kazu Yamamoto 2016-11-30 15:10:48 +09:00
parent f84aa5d7ce
commit 58151b9965
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Crypto/KDF/HKDF.hs
View File

@ -15,8 +15,6 @@ module Crypto.KDF.HKDF
, extract
, extractSkip
, expand
, fromPRK
, toPRK
) where
import Data.Word
@ -29,12 +27,11 @@ import qualified Crypto.Internal.ByteArray as B
data PRK a = PRK (HMAC a) | PRK_NoExpand ScrubbedBytes
deriving (Eq)
fromPRK :: ByteArray b => PRK a -> b
fromPRK (PRK hm) = B.convert hm
fromPRK (PRK_NoExpand sb) = B.convert sb
toPRK :: ByteArrayAccess b => b -> PRK a
toPRK = extractSkip
instance ByteArrayAccess (PRK a) where
length (PRK hm) = B.length hm
length (PRK_NoExpand sb) = B.length sb
withByteArray (PRK hm) = B.withByteArray hm
withByteArray (PRK_NoExpand sb) = B.withByteArray sb
-- | Extract a Pseudo Random Key using the parameter and the underlaying hash mechanism
extract :: (HashAlgorithm a, ByteArrayAccess salt, ByteArrayAccess ikm)