From eb661e653e89d56456bad4d9e5fe3473320599f6 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Tue, 14 Feb 2017 10:54:28 +0000 Subject: [PATCH] add Typeable for SHAKE --- Crypto/Hash/SHAKE.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Crypto/Hash/SHAKE.hs b/Crypto/Hash/SHAKE.hs index 938d249..2262f74 100644 --- a/Crypto/Hash/SHAKE.hs +++ b/Crypto/Hash/SHAKE.hs @@ -33,7 +33,7 @@ import GHC.TypeLits (Nat, KnownNat, natVal) -- correlated (one being a prefix of the other). Results are unrelated to -- 'SHAKE256' results. data SHAKE128 (bitlen :: Nat) = SHAKE128 - deriving (Show) + deriving (Show, Typeable) instance KnownNat bitlen => HashAlgorithm (SHAKE128 bitlen) where hashBlockSize _ = 168 @@ -51,7 +51,7 @@ instance KnownNat bitlen => HashAlgorithm (SHAKE128 bitlen) where -- correlated (one being a prefix of the other). Results are unrelated to -- 'SHAKE128' results. data SHAKE256 (bitlen :: Nat) = SHAKE256 - deriving (Show) + deriving (Show, Typeable) instance KnownNat bitlen => HashAlgorithm (SHAKE256 bitlen) where hashBlockSize _ = 136