M Network/Protocol/XMPP/Connections.hs => Network/Protocol/XMPP/Connections.hs +3 -3
@@ 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
M Network/Protocol/XMPP/Handle.hs => Network/Protocol/XMPP/Handle.hs +1 -1
@@ 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
M Network/Protocol/XMPP/Monad.hs => Network/Protocol/XMPP/Monad.hs +1 -1
@@ 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 ((>>>))