From 5214c3f61d3aaaf18baff8020a066cc2160d612d Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Thu, 2 Aug 2018 17:00:22 -0400 Subject: Codec.Crypto.HKDF: Implement `expand` --- src/Types.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/Types.hs') diff --git a/src/Types.hs b/src/Types.hs index 6b430c2..3c0f350 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -13,13 +13,19 @@ -- the License. module Types - ( Salt(Salt), noSalt + ( AssociatedData(AssociatedData) + , Salt(Salt), noSalt , SecretKey(SecretKey) ) where import Data.ByteString (ByteString) import qualified Data.ByteString as ByteString +-- | Context or application-specific information. Equality comparisons on this +-- type are variable-time. +newtype AssociatedData = AssociatedData ByteString + deriving (Eq, Ord, Show) + -- | A salt. Equality comparisons on this type are variable-time. newtype Salt = Salt ByteString deriving (Eq, Ord, Show) -- cgit v1.2.3