show when not connected to xmpp server

This commit is contained in:
Joey Hess 2013-03-06 22:02:47 -04:00
parent 15ef899b12
commit f8c2dc82d8
4 changed files with 14 additions and 6 deletions

View file

@ -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