From e89031c6d6dd1f60676629ac3b28d0f912f2301a Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Wed, 6 May 2015 11:39:07 +0100 Subject: [PATCH] make AuthTag be a Bytes instead of ByteString --- Crypto/Cipher/Types/Base.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/Crypto/Cipher/Types/Base.hs b/Crypto/Cipher/Types/Base.hs index d9bb16b..4b758dd 100644 --- a/Crypto/Cipher/Types/Base.hs +++ b/Crypto/Cipher/Types/Base.hs @@ -18,9 +18,7 @@ module Crypto.Cipher.Types.Base ) where import Data.Word -import Data.ByteString (ByteString) - -import Crypto.Internal.ByteArray (ByteArrayAccess, ByteArray) +import Crypto.Internal.ByteArray (Bytes, ByteArrayAccess, ByteArray) import qualified Crypto.Internal.ByteArray as B import Crypto.Error @@ -35,7 +33,7 @@ data KeySizeSpecifier = type DataUnitOffset = Word32 -- | Authentification Tag for AE cipher mode -newtype AuthTag = AuthTag { unAuthTag :: ByteString } +newtype AuthTag = AuthTag { unAuthTag :: Bytes } deriving (Show, ByteArrayAccess) instance Eq AuthTag where