diff options
author | joe <joe@jerkface.net> | 2013-07-01 23:08:24 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2013-07-01 23:08:24 -0400 |
commit | 29624113b89fe6b62c8093b99eaa206432ca5354 (patch) | |
tree | 956356fb23574fbd65b249990a76e2673ce80179 /Presence/main.hs | |
parent | 09d58ee7dac8e147d71c2fefe77343457d1f57d8 (diff) |
Cache presence probes until a connection is ready.
Diffstat (limited to 'Presence/main.hs')
-rw-r--r-- | Presence/main.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/Presence/main.hs b/Presence/main.hs index fa4a98c1..2c0a6cfb 100644 --- a/Presence/main.hs +++ b/Presence/main.hs | |||
@@ -246,7 +246,6 @@ 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 | -- TODO ... sendMessage | ||
250 | sendMessage (outGoingConnections state) (PresenceProbe buddy) (peer buddy) | 249 | sendMessage (outGoingConnections state) (PresenceProbe buddy) (peer buddy) |
251 | return () | 250 | return () |
252 | 251 | ||