diff options
Diffstat (limited to 'Assistant/Threads/XMPPClient.hs')
| -rw-r--r-- | Assistant/Threads/XMPPClient.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs index 7d55e4b79..d31bfea6f 100644 --- a/Assistant/Threads/XMPPClient.hs +++ b/Assistant/Threads/XMPPClient.hs @@ -184,7 +184,8 @@ relayNetMessage selfjid = do where handleImportant msg = case parseJID =<< isImportantNetMessage msg of Just tojid - | tojid == baseJID tojid -> + | tojid == baseJID tojid -> do + putStanza presenceQuery storeImportantNetMessage msg (formatJID tojid) $ \c -> (baseJID <$> parseJID c) == Just tojid _ -> noop |