mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor XMPP client

Browse source
This commit is contained in:
Joey Hess 2012-11-03 14:16:17 -04:00
parent 74385e3d38
commit a1228e27ed
12 changed files with 291 additions and 175 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Configurators/XMPP.hs
View file

@ -23,7 +23,7 @@ import Assistant.Common
#ifdef WITH_XMPP
import Assistant.XMPP.Client
import Assistant.XMPP.Buddies
import Assistant.Pushes
import Assistant.NetMessager
import Utility.SRV
#endif
@ -80,7 +80,7 @@ getXMPPR' redirto = xmppPage $ do
where
storecreds creds = do
void $ runAnnex undefined $ setXMPPCreds creds
liftAssistant notifyRestart
liftAssistant notifyNetMessagerRestart
redirect redirto
#endif