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

[hash] properly display Digest just like cryptohash.

Browse Source 
fix #8
This commit is contained in:
Vincent Hanquez 2015-06-09 14:35:23 +01:00
parent 8cc91a7bfe
commit 35bad8c241
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Crypto/Hash/Types.hs
View File

@ -54,4 +54,5 @@ newtype Digest a = Digest Bytes
deriving (Eq,Ord,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) = map (toEnum . fromIntegral)
$ B.unpack (B.convertToBase B.Base16 bs :: Bytes)