diff options
| author | Clint Adams <clint@debian.org> | 2012-04-26 20:40:26 -0400 |
|---|---|---|
| committer | Clint Adams <clint@debian.org> | 2012-04-26 20:40:26 -0400 |
| commit | 00dad0cfc02fdd78abe425aa29b41855a22dea1a (patch) | |
| tree | 1d2129886b5e1dc6ef620e6a7a6ae023994a019a /Codec | |
| parent | 8c34729c62ba64c810fbfa73719ae7f7110c0fbe (diff) | |
Make hlint happy.
Diffstat (limited to 'Codec')
| -rw-r--r-- | Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs | 2 |
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) | |||
| 17 | where | 17 | where |
| 18 | go :: [Armor] -> Armor -> Armor | 18 | go :: [Armor] -> Armor -> Armor |
| 19 | go [] state = state | 19 | go [] state = state |
| 20 | go ((Armor at hs bs):as) state = go as (go' at hs bs state) | 20 | go (Armor at hs bs:as) state = go as (go' at hs bs state) |
| 21 | go' :: ArmorType -> [(String,String)] -> ByteString -> Armor -> Armor | 21 | go' :: ArmorType -> [(String,String)] -> ByteString -> Armor -> Armor |
| 22 | go' (ArmorSplitMessage _ _) hs bs (Armor _ ohs obs) = Armor ArmorMessage (ohs ++ hs) (obs `BL.append` bs) | 22 | go' (ArmorSplitMessage _ _) hs bs (Armor _ ohs obs) = Armor ArmorMessage (ohs ++ hs) (obs `BL.append` bs) |
| 23 | go' (ArmorSplitMessageIndefinite _) hs bs (Armor _ ohs obs) = Armor ArmorMessage (ohs ++ hs) (obs `BL.append` bs) | 23 | go' (ArmorSplitMessageIndefinite _) hs bs (Armor _ ohs obs) = Armor ArmorMessage (ohs ++ hs) (obs `BL.append` bs) |