summaryrefslogtreecommitdiff
path: root/Assistant/Threads/XMPPClient.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-04-09 15:26:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-04-09 15:26:41 -0400
commitb7feceff3dfd4ed7c8889036cd43f06642a449da (patch)
treecf41ddf713ca484948402871fa963374d349f7c9 /Assistant/Threads/XMPPClient.hs
parent11c19090eaeef4a7f8dd7faaa67eccb48d1937f8 (diff)
webapp: Show a network signal icon next to ssh remotes that it's currently connected with.
Diffstat (limited to 'Assistant/Threads/XMPPClient.hs')
-rw-r--r--Assistant/Threads/XMPPClient.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs
index ab4de9257..d23f695f6 100644
--- a/Assistant/Threads/XMPPClient.hs
+++ b/Assistant/Threads/XMPPClient.hs
@@ -67,6 +67,7 @@ xmppClient urlrenderer d creds =
- is not retained. -}
liftAssistant $
updateBuddyList (const noBuddies) <<~ buddyList
+ liftAssistant $
void client
liftAssistant $ modifyDaemonStatus_ $ \s -> s
{ xmppClientID = Nothing }