From 05e5830aab6b71735f347d8963bd1fb037e59732 Mon Sep 17 00:00:00 2001 From: joe Date: Tue, 30 Aug 2016 04:02:47 -0400 Subject: Added Ord instances --- Data/OpenPGP.hs | 6 +++--- 1 file 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 -- cgit v1.2.3