summaryrefslogtreecommitdiff
path: root/Presence/main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Presence/main.hs')
-rw-r--r--Presence/main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Presence/main.hs b/Presence/main.hs
index 2c0a6cfb..e02b4348 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -246,7 +246,7 @@ sendProbes state jid = do
246 jids <- maybe (return Set.empty) readTVarIO mjids 246 jids <- maybe (return Set.empty) readTVarIO mjids
247 let noinfo = Set.notMember buddy jids 247 let noinfo = Set.notMember buddy jids
248 when noinfo $ do 248 when noinfo $ do
249 sendMessage (outGoingConnections state) (PresenceProbe buddy) (peer buddy) 249 sendMessage (outGoingConnections state) (PresenceProbe jid buddy) (peer buddy)
250 return () 250 return ()
251 251
252track_login host state e = do 252track_login host state e = do