1 files changed, 1 insertions, 1 deletions

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)