2 files changed, 2 insertions(+), 4 deletions(-)

M Network/Protocol/XMPP/Client.hs
M Network/Protocol/XMPP/Internal/Connections.hs

@@ 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
 

@@ 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"