kazu-yamamoto/crypton
1
1
Fork 0
mirror of https://github.com/kazu-yamamoto/crypton.git synced 2024-10-06 00:37:20 +03:00
Code Issues 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)
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)