From 57c814f20b140ddd90a935c0ef949e7555aa1352 Mon Sep 17 00:00:00 2001
From: Nicolas DI PRIMA <nicolas@di-prima.fr>
Date: Tue, 26 May 2015 19:10:26 +0100
Subject: [PATCH] add Ord instance on Digest

---
 Crypto/Hash/Types.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Crypto/Hash/Types.hs b/Crypto/Hash/Types.hs
index 165a3c0..53c6791 100644
--- 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)