make AuthTag be a Bytes instead of ByteString

This commit is contained in:
Vincent Hanquez 2015-05-06 11:39:07 +01:00
parent b45e8e2c2c
commit e89031c6d6

View File

@ -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