Merge pull request #3 from NicolasDP/master

add Ord instance on Digest
2015-05-26 21:54:45 +01:00 · 2015-05-26 21:54:45 +01:00 · ecab33beef
commit ecab33beef
parent 73c5d2145e 57c814f20b
1 changed files with 1 additions and 1 deletions
--- a/Crypto/Hash/Types.hs
+++ b/Crypto/Hash/Types.hs
@ -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)