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

Add missing Data instances

Browse Source
This commit is contained in:
Olivier Chéron 2018-10-14 16:58:29 +02:00
parent e10ef06885
commit 0ab1c41ac8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Crypto/Hash/SHAKE.hs
View File

@ -22,6 +22,7 @@ module Crypto.Hash.SHAKE
import Crypto.Hash.Types import Crypto.Hash.Types
import Foreign.Ptr (Ptr) import Foreign.Ptr (Ptr)
import Data.Data
import Data.Typeable import Data.Typeable
import Data.Word (Word8, Word32) import Data.Word (Word8, Word32)
@ -37,7 +38,7 @@ import Crypto.Internal.Nat
-- correlated (one being a prefix of the other). Results are unrelated to -- correlated (one being a prefix of the other). Results are unrelated to
-- 'SHAKE256' results. -- 'SHAKE256' results.
data SHAKE128 (bitlen :: Nat) = SHAKE128 data SHAKE128 (bitlen :: Nat) = SHAKE128
deriving (Show, Typeable) deriving (Show, Data, Typeable)
instance (IsDivisibleBy8 bitlen, KnownNat bitlen) => HashAlgorithm (SHAKE128 bitlen) where instance (IsDivisibleBy8 bitlen, KnownNat bitlen) => HashAlgorithm (SHAKE128 bitlen) where
type HashBlockSize (SHAKE128 bitlen) = 168 type HashBlockSize (SHAKE128 bitlen) = 168
@ -58,7 +59,7 @@ instance (IsDivisibleBy8 bitlen, KnownNat bitlen) => HashAlgorithm (SHAKE128 bit
-- correlated (one being a prefix of the other). Results are unrelated to -- correlated (one being a prefix of the other). Results are unrelated to
-- 'SHAKE128' results. -- 'SHAKE128' results.
data SHAKE256 (bitlen :: Nat) = SHAKE256 data SHAKE256 (bitlen :: Nat) = SHAKE256
deriving (Show, Typeable) deriving (Show, Data, Typeable)
instance (IsDivisibleBy8 bitlen, KnownNat bitlen) => HashAlgorithm (SHAKE256 bitlen) where instance (IsDivisibleBy8 bitlen, KnownNat bitlen) => HashAlgorithm (SHAKE256 bitlen) where
type HashBlockSize (SHAKE256 bitlen) = 136 type HashBlockSize (SHAKE256 bitlen) = 136