From 4d38fdfb16d722763d85a1a0bb3fc278b482ecf2 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sun, 9 Mar 2014 00:04:15 -0500
Subject: clone bug

---
 xmppServer.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'xmppServer.hs')

diff --git a/xmppServer.hs b/xmppServer.hs
index d38c78cf..55ddf0a2 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -671,8 +671,9 @@ clientSubscriptionRequest state fail k stanza chan = do
         -- if already connected, send solicitation ...
         let from = clientJID con client
         
-        sendModifiedStanzaToPeer (stanza { stanzaTo = Just to
-                                         , stanzaFrom = Just from })
+        dup <- cloneStanza stanza
+        sendModifiedStanzaToPeer (dup { stanzaTo = Just to
+                                      , stanzaFrom = Just from })
                                  (connChan con)
     let addrm = Map.fromList (map (,()) addrs)
     when (not . Map.null $ addrm Map.\\ ap) $ do
-- 
cgit v1.2.3