diff options
Diffstat (limited to 'Presence/main.hs')
-rw-r--r-- | Presence/main.hs | 2 |
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 | ||
252 | track_login host state e = do | 252 | track_login host state e = do |