From 1ddca48c27cece9352e85ce6188f697eb9124750 Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Thu, 26 Apr 2012 19:34:16 -0400 Subject: Introduce some lazy bytestrings internally. --- Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (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 8719c7c..313c3bc 100644 --- a/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs +++ b/Codec/Encryption/OpenPGP/ASCIIArmor/Multipart.hs @@ -9,16 +9,16 @@ module Codec.Encryption.OpenPGP.ASCIIArmor.Multipart ( import Codec.Encryption.OpenPGP.ASCIIArmor.Types -import Data.ByteString (ByteString) -import qualified Data.ByteString as B +import Data.ByteString.Lazy (ByteString) +import qualified Data.ByteString.Lazy as BL multipartMerge :: [Armor] -> Armor -multipartMerge as = go as (Armor ArmorMessage [] B.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' :: ArmorType -> [(String,String)] -> ByteString -> Armor -> Armor - go' (ArmorSplitMessage _ _) hs bs (Armor _ ohs obs) = Armor ArmorMessage (ohs ++ hs) (obs `B.append` bs) - go' (ArmorSplitMessageIndefinite _) hs bs (Armor _ ohs obs) = Armor ArmorMessage (ohs ++ hs) (obs `B.append` bs) + 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) go' _ _ _ state = state -- cgit v1.2.3