1 files changed, 5 insertions, 5 deletions

diff --git a/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs b/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs
index fdb9961..cb5b16d 100644
--- a/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs
+++ b/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs
@@ -37,15 +37,15 @@ endLine :: ArmorType -> ByteString
 endLine atype = BLC8.pack "-----END PGP " `BL.append` aType atype `BL.append` BLC8.pack "-----\n"
 
 aType :: ArmorType -> ByteString
-aType (ArmorMessage) = BLC8.pack "MESSAGE"
-aType (ArmorPublicKeyBlock) = BLC8.pack "PUBLIC KEY BLOCK"
-aType (ArmorPrivateKeyBlock) = BLC8.pack "PRIVATE KEY BLOCK"
+aType ArmorMessage = BLC8.pack "MESSAGE"
+aType ArmorPublicKeyBlock = BLC8.pack "PUBLIC KEY BLOCK"
+aType ArmorPrivateKeyBlock = BLC8.pack "PRIVATE KEY BLOCK"
 aType (ArmorSplitMessage x y) = BLC8.pack $ "MESSAGE, PART " ++ show x ++ "/" ++ show y
 aType (ArmorSplitMessageIndefinite x) = BLC8.pack $ "MESSAGE, PART " ++ show x
-aType (ArmorSignature) = BLC8.pack "SIGNATURE"
+aType ArmorSignature = BLC8.pack "SIGNATURE"
 
 armorHeaders :: [(String, String)] -> ByteString
-armorHeaders ahs = BLC8.unlines . map armorHeader $ ahs
+armorHeaders = BLC8.unlines . map armorHeader
     where
         armorHeader :: (String, String) -> ByteString
         armorHeader (k, v) = BLC8.pack k `BL.append` BLC8.pack ": " `BL.append` BLC8.pack v