mirror of
https://github.com/kazu-yamamoto/crypton.git
synced 2024-10-06 08:49:03 +03:00
parent
8cc91a7bfe
commit
35bad8c241
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user