From c708dc4b1d84bc85c52c5c3255f65c62a67ee039 Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Fri, 27 Jul 2012 23:48:27 -0400 Subject: Make -Wall-clean and build with -Wall. --- Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs') diff --git a/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs b/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs index 385074f..0334c7e 100644 --- a/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs +++ b/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs @@ -13,11 +13,12 @@ import Data.ByteString.Lazy (ByteString) import qualified Data.ByteString.Lazy as BL multipartMerge :: [Armor] -> Armor -multipartMerge as = go as (Armor ArmorMessage [] BL.empty) +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 _ _ = error "This shouldn't happen." 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