diff --git a/Assistant/WebApp/Configurators/Pairing.hs b/Assistant/WebApp/Configurators/Pairing.hs index c05c7c2213..a98cf315cf 100644 --- a/Assistant/WebApp/Configurators/Pairing.hs +++ b/Assistant/WebApp/Configurators/Pairing.hs @@ -58,7 +58,7 @@ getStartXMPPPairR = ifM (isJust <$> runAnnex Nothing getXMPPCreds) liftAssistant $ sendNetMessage QueryPresence pairPage $ $(widgetFile "configurators/pairing/xmpp/prompt") - , redirect XMPPForPairingR -- go get XMPP configured, then come back + , redirect XMPPR -- go get XMPP configured, then come back ) #else getStartXMPPPairR = noXMPPPairing diff --git a/Assistant/WebApp/Configurators/XMPP.hs b/Assistant/WebApp/Configurators/XMPP.hs index 86b8724be7..1226d8365a 100644 --- a/Assistant/WebApp/Configurators/XMPP.hs +++ b/Assistant/WebApp/Configurators/XMPP.hs @@ -46,25 +46,9 @@ xmppNeeded = whenM (isNothing <$> runAnnex Nothing getXMPPCreds) $ do xmppNeeded = return () #endif +#ifdef WITH_XMPP getXMPPR :: Handler RepHtml -#ifdef WITH_XMPP -getXMPPR = getXMPPR' ConfigurationR -#else -getXMPPR = xmppPage $ - $(widgetFile "configurators/xmpp/disabled") -#endif - -getXMPPForPairingR :: Handler RepHtml -#ifdef WITH_XMPP -getXMPPForPairingR = getXMPPR' StartXMPPPairR -#else -getXMPPForPairingR = xmppPage $ - $(widgetFile "configurators/xmpp/disabled") -#endif - -#ifdef WITH_XMPP -getXMPPR' :: Route WebApp -> Handler RepHtml -getXMPPR' redirto = xmppPage $ do +getXMPPR = xmppPage $ do ((result, form), enctype) <- lift $ do oldcreds <- runAnnex Nothing getXMPPCreds runFormGet $ renderBootstrap $ xmppAForm $ @@ -78,7 +62,10 @@ getXMPPR' redirto = xmppPage $ do storecreds creds = do void $ runAnnex undefined $ setXMPPCreds creds liftAssistant notifyNetMessagerRestart - redirect redirto + redirect StartXMPPPairR +#else +getXMPPR = xmppPage $ + $(widgetFile "configurators/xmpp/disabled") #endif {- Called by client to get a list of buddies. diff --git a/Assistant/WebApp/routes b/Assistant/WebApp/routes index 6a393f5dea..e258966971 100644 --- a/Assistant/WebApp/routes +++ b/Assistant/WebApp/routes @@ -15,7 +15,6 @@ /config/repository RepositoriesR GET /config/preferences PreferencesR GET /config/xmpp XMPPR GET -/config/xmpp/for/pairing XMPPForPairingR GET /config/repository/new/first FirstRepositoryR GET /config/repository/new NewRepositoryR GET diff --git a/debian/changelog b/debian/changelog index 791f59ebdb..348aa7bc1f 100644 --- a/debian/changelog +++ b/debian/changelog @@ -18,6 +18,8 @@ git-annex (4.20130228) UNRELEASED; urgency=low * assistant: Fix bug in direct mode that could occur when a symlink is moved out of an archive directory, and resulted in the file not being set to direct mode when it was transferred. + * webapp: Proceed automatically on from "Configure jabber account" + to pairing. -- Joey Hess Wed, 27 Feb 2013 23:20:40 -0400