From dbc6c658a7b7015879b2d70cad34873b5d7ddb42 Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 9 Mar 2014 00:54:16 -0500 Subject: prevent resource from writing to buddies file --- xmppServer.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'xmppServer.hs') 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 -- cgit v1.2.3