3 files changed, 5 insertions(+), 5 deletions(-)

M Network/Protocol/XMPP/Connections.hs
M Network/Protocol/XMPP/Handle.hs
M Network/Protocol/XMPP/Monad.hs

@@ 21,7 21,7 @@ module Network.Protocol.XMPP.Connections
 	, qnameStream
 	) where
 import Network (HostName, PortID)
-import Data.ByteString (ByteString)
+import qualified Data.ByteString.Lazy as B
 import qualified Data.Text as T
 import Data.Text.Encoding (encodeUtf8)
 import qualified Text.XML.HXT.DOM.Interface as DOM


@@ 39,8 39,8 @@ data Server = Server
 -- Since only the opening tag should be written, normal XML
 -- serialization cannot be used. Be careful to escape any embedded
 -- attributes.
-xmlHeader :: T.Text -> JID -> ByteString
-xmlHeader ns jid = encodeUtf8 header where
+xmlHeader :: T.Text -> JID -> B.ByteString
+xmlHeader ns jid = B.fromChunks [encodeUtf8 header] where
 	escape = T.pack . DOM.attrEscapeXml . T.unpack
 	attr x = T.concat ["\"", escape x, "\""]
 	header = T.concat

@@ 24,7 24,7 @@ module Network.Protocol.XMPP.Handle
 import Control.Monad (when)
 import qualified Control.Monad.Error as E
 import Control.Monad.Trans (liftIO)
-import qualified Data.ByteString.Char8 as B
+import qualified Data.ByteString.Lazy.Char8 as B
 import qualified Data.Text as T
 import qualified System.IO as IO
 import qualified Network.Protocol.TLS.GNU as TLS

@@ 38,7 38,7 @@ import Prelude hiding (getChar)
 import Control.Monad.Trans (MonadIO, liftIO)
 import qualified Control.Monad.Error as E
 import qualified Control.Monad.Reader as R
-import qualified Data.ByteString.Char8 as B
+import qualified Data.ByteString.Lazy.Char8 as B
 import Data.Text (Text)
 
 import Text.XML.HXT.Arrow ((>>>))