~singpolyma/network-protocol-xmpp

e35428012efd7883ce4fe7a0efdeb668e7c24175 — John Millikin 14 years ago 17f9ee2
Removed outdated TODO
1 files changed, 0 insertions(+), 1 deletions(-)

M Network/Protocol/XMPP/Client.hs
M Network/Protocol/XMPP/Client.hs => Network/Protocol/XMPP/Client.hs +0 -1
@@ 69,7 69,6 @@ clientAuthenticate (ConnectedClient serverJID stream) jid username password = do
clientBind :: Client -> IO JID
clientBind c = do
	-- Bind
	-- TODO: set ID to random value, and check bind result for JID
	let resourceElements = case jidResource . clientJID $ c of
		"" -> []
		resource ->