1 files changed, 5 insertions, 5 deletions

diff --git a/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs b/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs
index 99d4d54..28bb3e6 100644
--- a/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs
+++ b/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs
@@ -17,22 +17,22 @@ import Data.Serialize (put)
 import Data.Serialize.Put (runPut, putWord32be)
 import Data.String (IsString, fromString)
 
-encode :: (Integral a, Show a) => [Armor a] -> ByteString
+encode :: [Armor] -> ByteString
 encode = B.concat . map armor
 
-armor :: (Integral a, Show a) => Armor a -> ByteString
+armor :: Armor -> ByteString
 armor (Armor atype ahs bs) = beginLine atype `B.append` armorHeaders ahs `B.append` blankLine `B.append` armorData bs `B.append` armorChecksum bs `B.append` endLine atype
 
 blankLine :: ByteString
 blankLine = BC8.singleton '\n'
 
-beginLine :: (Integral a, Show a) => ArmorType a -> ByteString
+beginLine :: ArmorType -> ByteString
 beginLine atype = BC8.pack "-----BEGIN PGP " `B.append` aType atype `B.append` BC8.pack "-----\n"
 
-endLine :: (Integral a, Show a) => ArmorType a -> ByteString
+endLine :: ArmorType -> ByteString
 endLine atype = BC8.pack "-----END PGP " `B.append` aType atype `B.append` BC8.pack "-----\n"
 
-aType :: (Integral a, Show a) => ArmorType a -> ByteString
+aType :: ArmorType -> ByteString
 aType (ArmorMessage) = BC8.pack "MESSAGE"
 aType (ArmorPublicKeyBlock) = BC8.pack "PUBLIC KEY BLOCK"
 aType (ArmorPrivateKeyBlock) = BC8.pack "PRIVATE KEY BLOCK"