summaryrefslogtreecommitdiff
path: root/Presence/main.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2013-07-01 23:08:24 -0400
committerjoe <joe@jerkface.net>2013-07-01 23:08:24 -0400
commit29624113b89fe6b62c8093b99eaa206432ca5354 (patch)
tree956356fb23574fbd65b249990a76e2673ce80179 /Presence/main.hs
parent09d58ee7dac8e147d71c2fefe77343457d1f57d8 (diff)
Cache presence probes until a connection is ready.
Diffstat (limited to 'Presence/main.hs')
-rw-r--r--Presence/main.hs1
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