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.
This commit is contained in:
parent
a1228e27ed
commit
9a8d0be866
4 changed files with 15 additions and 3 deletions
|
@ -31,6 +31,8 @@ import Annex.UUID
|
|||
#ifdef WITH_XMPP
|
||||
import Assistant.XMPP.Client
|
||||
import Network.Protocol.XMPP
|
||||
import Assistant.Types.NetMessager
|
||||
import Assistant.NetMessager
|
||||
#endif
|
||||
import Utility.UserInfo
|
||||
|
||||
|
@ -55,6 +57,9 @@ getStartPairR = pairPage $ do
|
|||
#else
|
||||
let localsupported = False
|
||||
#endif
|
||||
{- Ask buddies to send presence info, to get the buddy list
|
||||
- populated. -}
|
||||
lift $ liftAssistant $ sendNetMessage QueryPresence
|
||||
$(widgetFile "configurators/pairing/start")
|
||||
#else
|
||||
#ifdef WITH_PAIRING
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue