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

Derive a Data instance for Digest.

Browse Source
This commit is contained in:
Leif Warner 2018-06-18 00:20:48 -07:00
parent 4622e5fc8e
commit 8a61d8e5e2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/Hash/Types.hs
View File

@ -8,6 +8,7 @@
-- Crypto hash types definitions -- Crypto hash types definitions
-- --
{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DataKinds #-} {-# LANGUAGE DataKinds #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeFamilies #-}
@ -28,6 +29,7 @@ import Basement.Block.Mutable (MutableBlock, new, unsafeWrite)
import Basement.NormalForm (deepseq) import Basement.NormalForm (deepseq)
import Basement.Types.OffsetSize (CountOf(..), Offset(..)) import Basement.Types.OffsetSize (CountOf(..), Offset(..))
import GHC.TypeLits (Nat) import GHC.TypeLits (Nat)
import Data.Data (Data)
-- | Class representing hashing algorithms. -- | Class representing hashing algorithms.
-- --
@ -76,7 +78,7 @@ newtype Context a = Context Bytes
-- Creating a digest from a bytearray is also possible with function -- Creating a digest from a bytearray is also possible with function
-- 'Crypto.Hash.digestFromByteString'. -- 'Crypto.Hash.digestFromByteString'.
newtype Digest a = Digest (Block Word8) newtype Digest a = Digest (Block Word8)
deriving (Eq,Ord,ByteArrayAccess) deriving (Eq,Ord,ByteArrayAccess, Data)
instance NFData (Digest a) where instance NFData (Digest a) where
rnf (Digest u) = u `deepseq` () rnf (Digest u) = u `deepseq` ()