diff options
| author | joe <joe@jerkface.net> | 2014-03-09 00:04:15 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-03-09 00:04:15 -0500 |
| commit | 4d38fdfb16d722763d85a1a0bb3fc278b482ecf2 (patch) | |
| tree | 9711b33d6313cb09bdff61f22adada82e8032efa /xmppServer.hs | |
| parent | 787fba50106105ed6fb77205ffcc6fe2a0102bed (diff) | |
clone bug
Diffstat (limited to 'xmppServer.hs')
| -rw-r--r-- | xmppServer.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 | |||
| 671 | -- if already connected, send solicitation ... | 671 | -- if already connected, send solicitation ... |
| 672 | let from = clientJID con client | 672 | let from = clientJID con client |
| 673 | 673 | ||
| 674 | sendModifiedStanzaToPeer (stanza { stanzaTo = Just to | 674 | dup <- cloneStanza stanza |
| 675 | , stanzaFrom = Just from }) | 675 | sendModifiedStanzaToPeer (dup { stanzaTo = Just to |
| 676 | , stanzaFrom = Just from }) | ||
| 676 | (connChan con) | 677 | (connChan con) |
| 677 | let addrm = Map.fromList (map (,()) addrs) | 678 | let addrm = Map.fromList (map (,()) addrs) |
| 678 | when (not . Map.null $ addrm Map.\\ ap) $ do | 679 | when (not . Map.null $ addrm Map.\\ ap) $ do |