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

Dropping Show from PRK.

Browse Source
This commit is contained in:
Kazu Yamamoto 2016-11-28 19:23:20 +09:00
parent c0b0846232
commit 2b9dce2c8a
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/KDF/HKDF.hs
View File

@ -30,10 +30,6 @@ import qualified Data.ByteString as BS
data PRK a = PRK (HMAC a) | PRK_NoExpand ScrubbedBytes data PRK a = PRK (HMAC a) | PRK_NoExpand ScrubbedBytes
deriving (Eq) deriving (Eq)
instance Show (PRK a) where
show (PRK hm) = show (hmacGetDigest hm)
show (PRK_NoExpand sb) = show sb
toByteString :: PRK a -> BS.ByteString toByteString :: PRK a -> BS.ByteString
toByteString (PRK hm) = B.convert hm toByteString (PRK hm) = B.convert hm
toByteString (PRK_NoExpand sb) = B.convert sb toByteString (PRK_NoExpand sb) = B.convert sb