From 00dad0cfc02fdd78abe425aa29b41855a22dea1a Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Thu, 26 Apr 2012 20:40:26 -0400 Subject: Make hlint happy. --- Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Codec') diff --git a/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs b/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs index 313c3bc..e3f6c34 100644 --- a/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs +++ b/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs @@ -17,7 +17,7 @@ multipartMerge as = go as (Armor ArmorMessage [] BL.empty) where go :: [Armor] -> Armor -> Armor go [] state = state - go ((Armor at hs bs):as) state = go as (go' at hs bs state) + go (Armor at hs bs:as) state = go as (go' at hs bs state) go' :: ArmorType -> [(String,String)] -> ByteString -> Armor -> Armor go' (ArmorSplitMessage _ _) hs bs (Armor _ ohs obs) = Armor ArmorMessage (ohs ++ hs) (obs `BL.append` bs) go' (ArmorSplitMessageIndefinite _) hs bs (Armor _ ohs obs) = Armor ArmorMessage (ohs ++ hs) (obs `BL.append` bs) -- cgit v1.2.3