diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-03 14:25:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-03 14:25:06 -0400 |
| commit | 414fb6e1dc03201cb237041be97670c12be90f9f (patch) | |
| tree | a0d442d2e99bc8fd8647d810f1856bbd22356b74 /Assistant/Types | |
| parent | 1279d72b4e4fe77abb983954dc937021559d4169 (diff) | |
send a presence query when the buddy list is displayed
This ensures that clients that have not sent presence in a while will show
up in the list.
Diffstat (limited to 'Assistant/Types')
| -rw-r--r-- | Assistant/Types/NetMessager.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Assistant/Types/NetMessager.hs b/Assistant/Types/NetMessager.hs index fea88a53a..6bc9ec34a 100644 --- a/Assistant/Types/NetMessager.hs +++ b/Assistant/Types/NetMessager.hs @@ -13,7 +13,11 @@ import Control.Concurrent.STM import Control.Concurrent.MSampleVar {- Messages that can be sent out of band by a network messager. -} -data NetMessage = NotifyPush [UUID] +data NetMessage + -- indicate that pushes have been made to the repos with these uuids + = NotifyPush [UUID] + -- requests other clients to inform us of their presence + | QueryPresence {- Controls for the XMPP client. - |