~singpolyma/network-protocol-xmpp

8aaab5785893c5db0338952345894d58c5e5a771 — John Millikin 12 years ago d4a781f
When authenticating, do not include resources in the JID.
1 files changed, 2 insertions(+), 2 deletions(-)

M Network/Protocol/XMPP/Client/Authentication.hs
M Network/Protocol/XMPP/Client/Authentication.hs => Network/Protocol/XMPP/Client/Authentication.hs +2 -2
@@ 35,7 35,7 @@ import Text.XML.HXT.DOM.Interface (XmlTree)
import qualified Network.Protocol.SASL.GNU as SASL

import qualified Network.Protocol.XMPP.Monad as M
import Network.Protocol.XMPP.JID (JID, formatJID)
import Network.Protocol.XMPP.JID (JID, formatJID, jidResource)
import Network.Protocol.XMPP.XML (element, qname)

data Result = Success | Failure


@@ 54,7 54,7 @@ authenticate :: [B.ByteString] -- ^ Mechanisms
             -> M.XMPP ()
authenticate xmppMechanisms userJID serverJID username password = xmpp where
	mechanisms = map SASL.Mechanism xmppMechanisms
	authz = formatJID userJID
	authz = formatJID $ userJID { jidResource = Nothing }
	hostname = formatJID serverJID
	utf8 = TE.encodeUtf8