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

redirect to FirstRepositoryR

Browse source 
This makes the new POST form work, since otherwise it would
try to POST ConfigurationR, which is not supported.
This commit is contained in:
Joey Hess 2013-03-18 12:47:44 -04:00
parent 6ce4429c5e
commit 1d4ba882b3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Configurators.hs
View file

@ -19,7 +19,7 @@ import Assistant.XMPP.Client
{- The main configuration screen. -} {- The main configuration screen. -}
getConfigurationR :: Handler RepHtml getConfigurationR :: Handler RepHtml
getConfigurationR = ifM (inFirstRun) getConfigurationR = ifM (inFirstRun)
( getFirstRepositoryR ( redirect FirstRepositoryR
, page "Configuration" (Just Configuration) $ do , page "Configuration" (Just Configuration) $ do
#ifdef WITH_XMPP #ifdef WITH_XMPP
xmppconfigured <- liftAnnex $ isJust <$> getXMPPCreds xmppconfigured <- liftAnnex $ isJust <$> getXMPPCreds