From f7388f8cb19535585d35e1457985152c8ac0ddf8 Mon Sep 17 00:00:00 2001 From: joe Date: Tue, 11 Mar 2014 13:35:27 -0400 Subject: Fixed To address on pongs to client --- Presence/XMPPServer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index bfaaa751..6f834c25 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs @@ -839,7 +839,6 @@ xmppInbound sv xmpp k laddr pingflag stanzas output donevar = doNestingXML $ do , xmppTellPeerHisName xmpp k ) me <- liftIO tellmyname - you <- liftIO tellyourname withXML $ \begindoc -> do when (begindoc==EventBeginDocument) $ do whenJust nextElement $ \xml -> do @@ -872,6 +871,7 @@ xmppInbound sv xmpp k laddr pingflag stanzas output donevar = doNestingXML $ do , stanzaOrigin = NetworkOrigin k output } ioWriteChan stanzas s + you <- liftIO tellyourname flip (maybe $ unrecog) dispatch $ \dispatch -> case dispatch of -- Checking that the to-address matches this server. -- cgit v1.2.3