~singpolyma/network-protocol-xmpp

9ae38ff6daf0cdea0da117e8810d1eac77391d0a — John Millikin 12 years ago 16af081
Remove unnecessary TODOs
2 files changed, 2 insertions(+), 4 deletions(-)

M Network/Protocol/XMPP/Client.hs
M Network/Protocol/XMPP/Internal/Connections.hs
M Network/Protocol/XMPP/Client.hs => Network/Protocol/XMPP/Client.hs +1 -3
@@ 97,8 97,6 @@ authenticationMechanisms = step . streamFeatures where
		(F.FeatureSASL ms) -> ms
		_ -> step fs

-- TODO: does it make sense to put this in 'connect'?
-- Can multiple resources be bound to one client?
bindClient :: Client -> IO J.JID
bindClient c = do
	-- Bind


@@ 152,7 150,7 @@ beginStream jid handle = do
	if streamSupportsTLS plain
		then do
			S.putTree plain xmlStartTLS
			S.getTree plain -- TODO: verify
			S.getTree plain
			H.startTLS handle >>= newStream jid
		else return plain


M Network/Protocol/XMPP/Internal/Connections.hs => Network/Protocol/XMPP/Internal/Connections.hs +1 -1
@@ 41,7 41,7 @@ data Server = Server
-- attributes.
xmlHeader :: T.Text -> JID -> ByteString
xmlHeader ns jid = encodeUtf8 header where
	escape = T.pack . DOM.attrEscapeXml . T.unpack -- TODO: optimize?
	escape = T.pack . DOM.attrEscapeXml . T.unpack
	attr x = T.concat ["\"", escape x, "\""]
	header = T.concat
		[ "<?xml version='1.0'?>\n"