prevent resource from writing to buddies file

1 files changed, 2 insertions, 2 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index a903f332..9abf419d 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -819,8 +819,8 @@ peerInformSubscription state fail k stanza = do
     flip (maybe fail) (Map.lookup k ktc)
         $ \(Conn { connChan=sender_chan
                  , auxAddr=laddr }) -> do
-    (_,from'@(from_u,from_h,_)) <- rewriteJIDForClient laddr from
-    let from'' = unsplitJID from'
+    (_,(from_u,from_h,_)) <- rewriteJIDForClient laddr from
+    let from'' = unsplitJID (from_u,from_h,Nothing)
         muser = do
             to <- stanzaTo stanza
             let (mu,to_h,to_r) = splitJID to