diff options
| author | joe <joe@jerkface.net> | 2013-07-01 23:41:40 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-07-01 23:41:40 -0400 |
| commit | f4896e3eefa193ce27e3222ace3f5c99e2f84639 (patch) | |
| tree | e4b8484a905152221978bd5bbb9861301c6564b1 /Presence/main.hs | |
| parent | 29624113b89fe6b62c8093b99eaa206432ca5354 (diff) | |
Changed PresenceProbe constructor to have both "from" and "to" fields.
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 |