diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-30 15:56:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-30 15:56:33 -0400 |
| commit | b8e0db34d877a5e209708a3f266ed3fe96343b1a (patch) | |
| tree | c15a7e38dea3acc2bb810e58a2d842c27601bfb1 | |
| parent | 52d56bb0355ae6541373cc8dbfd593c4f797a605 (diff) | |
more xmpp debugging
| -rw-r--r-- | Assistant/Threads/XMPPClient.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs index 417c6c976..2f4f57d9a 100644 --- a/Assistant/Threads/XMPPClient.hs +++ b/Assistant/Threads/XMPPClient.hs @@ -219,7 +219,9 @@ relayNetMessage selfjid = do debug ["exploded undirected message to clients", unwords $ map logClient clients] return $ forM_ (clients) $ \(Client jid) -> putStanza $ pushMessage pushstage jid selfjid - else return $ putStanza $ pushMessage pushstage tojid selfjid + else do + debug ["to client:", logJid tojid] + return $ putStanza $ pushMessage pushstage tojid selfjid convert msg = convertNetMsg msg selfjid {- Converts a NetMessage to an XMPP action. -} |