Added Ord instances

1 files changed, 3 insertions, 3 deletions

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 74aae5f..5d2ab2f 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -769,7 +769,7 @@ data S2K =
         SaltedS2K HashAlgorithm Word64 |
         IteratedSaltedS2K HashAlgorithm Word64 Word32 |
         S2K Word8 B.ByteString
-        deriving (Show, Read, Eq)
+        deriving (Show, Read, Eq, Ord)
 
 instance BINARY_CLASS S2K where
         put (SimpleS2K halgo) = put (0::Word8) >> put halgo
@@ -807,7 +807,7 @@ infiniHashes hsh s = LZ.fromChunks (hs 0)
         hs c = hsh (LZ.replicate c 0 `LZ.append` s) : hs (c+1)
 
 data HashAlgorithm = MD5 | SHA1 | RIPEMD160 | SHA256 | SHA384 | SHA512 | SHA224 | HashAlgorithm Word8
-        deriving (Show, Read, Eq)
+        deriving (Show, Read, Eq, Ord)
 
 instance Enum HashAlgorithm where
         toEnum 01 = MD5
@@ -859,7 +859,7 @@ instance BINARY_CLASS KeyAlgorithm where
         get = fmap enum_from_word8 get
 
 data SymmetricAlgorithm = Unencrypted | IDEA | TripleDES | CAST5 | Blowfish | AES128 | AES192 | AES256 | Twofish | SymmetricAlgorithm Word8
-        deriving (Show, Read, Eq)
+        deriving (Show, Read, Eq, Ord)
 
 instance Enum SymmetricAlgorithm where
         toEnum 00 = Unencrypted