commit
ecab33beef
@ -51,7 +51,7 @@ newtype Context a = Context Bytes
|
|||||||
|
|
||||||
-- | Represent a digest for a given hash algorithm.
|
-- | Represent a digest for a given hash algorithm.
|
||||||
newtype Digest a = Digest Bytes
|
newtype Digest a = Digest Bytes
|
||||||
deriving (Eq,ByteArrayAccess,NFData)
|
deriving (Eq,Ord,ByteArrayAccess,NFData)
|
||||||
|
|
||||||
instance Show (Digest a) where
|
instance Show (Digest a) where
|
||||||
show (Digest bs) = show (B.convertToBase B.Base16 bs :: Bytes)
|
show (Digest bs) = show (B.convertToBase B.Base16 bs :: Bytes)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user