This commit is contained in:
Vincent Hanquez 2015-05-26 22:09:49 +01:00
commit ac67e0d8fb

View File

@ -51,7 +51,7 @@ newtype Context a = Context Bytes
-- | Represent a digest for a given hash algorithm.
newtype Digest a = Digest Bytes
deriving (Eq,ByteArrayAccess,NFData)
deriving (Eq,Ord,ByteArrayAccess,NFData)
instance Show (Digest a) where
show (Digest bs) = show (B.convertToBase B.Base16 bs :: Bytes)