From e35428012efd7883ce4fe7a0efdeb668e7c24175 Mon Sep 17 00:00:00 2001 From: John Millikin Date: Fri, 3 Jul 2009 21:14:56 +0000 Subject: [PATCH] Removed outdated TODO --- Network/Protocol/XMPP/Client.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/Network/Protocol/XMPP/Client.hs b/Network/Protocol/XMPP/Client.hs index 3cca3bb..a2f4d8b 100644 --- a/Network/Protocol/XMPP/Client.hs +++ b/Network/Protocol/XMPP/Client.hs @@ -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 -> -- 2.45.2