1 files changed, 5 insertions, 0 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index e66eea70..7fc11124 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -1503,6 +1503,7 @@ monitor sv params xmpp = do
             RequiresPing -> return () -- wlog $ tomsg k "RequiresPing"
             _ -> return ()
       , readTChan stanzas >>= \stanza -> return $ do
+        {-
         dup <- case stanzaType stanza of
                 -- Must dup anything that is going to be delivered...
                 Message {} -> do
@@ -1512,6 +1513,9 @@ monitor sv params xmpp = do
                     dup <- cloneStanza stanza -- dupped so we can make debug print
                     return dup
                 _ -> return stanza
+        -}
+        dup <- cloneStanza stanza
+
         forkIO $ do
             case stanzaOrigin stanza of
                 NetworkOrigin k@(ClientKey {}) replyto -> 
@@ -1574,6 +1578,7 @@ monitor sv params xmpp = do
                     case stanzaType stanza of
                         PresenceRequestStatus {} -> do
                             xmppAnswerProbe xmpp k stanza replyto
+                        _ -> return ()
                 _ -> return ()
             let deliver replyto = do
                     -- TODO: Issuing RecipientUnavailable for all errors is a presence leak