split and lift Assistant.Pushes

2012-10-29 17:52:43 -04:00 · 2012-10-29 17:52:43 -04:00 · 87ba4f8677
commit 87ba4f8677
parent d5a5c05a79
8 changed files with 82 additions and 64 deletions
--- a/Assistant/WebApp/Configurators/XMPP.hs
+++ b/Assistant/WebApp/Configurators/XMPP.hs
@ -58,7 +58,7 @@ getXMPPR = xmppPage $ do
 	where
 		storecreds creds = do
 			void $ runAnnex undefined $ setXMPPCreds creds
-			liftIO . notifyRestart =<< getAssistantY pushNotifier
+			runAssistantY notifyRestart
 			redirect ConfigR
 #else
 getXMPPR = xmppPage $