show when not connected to xmpp server
This commit is contained in:
parent
15ef899b12
commit
f8c2dc82d8
4 changed files with 14 additions and 6 deletions
|
@ -83,6 +83,7 @@ buddyListDisplay :: Widget
|
|||
buddyListDisplay = do
|
||||
autoUpdate ident NotifierBuddyListR (10 :: Int) (10 :: Int)
|
||||
#ifdef WITH_XMPP
|
||||
myjid <- lift $ liftAssistant $ xmppClientID <$> getDaemonStatus
|
||||
buddies <- lift $ liftAssistant $ do
|
||||
rs <- filter isXMPPRemote . syncGitRemotes <$> getDaemonStatus
|
||||
let pairedwith = catMaybes $ map (parseJID . getXMPPClientID) rs
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue