From 1d4ba882b3464d6910bbbd8af81ddb10dbb80c2b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 18 Mar 2013 12:47:44 -0400
Subject: [PATCH] redirect to FirstRepositoryR

This makes the new POST form work, since otherwise it would
try to POST ConfigurationR, which is not supported.
---
 Assistant/WebApp/Configurators.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs
index 516c3cc1dc..ad7bdab08a 100644
--- a/Assistant/WebApp/Configurators.hs
+++ b/Assistant/WebApp/Configurators.hs
@@ -19,7 +19,7 @@ import Assistant.XMPP.Client
 {- The main configuration screen. -}
 getConfigurationR :: Handler RepHtml
 getConfigurationR = ifM (inFirstRun)
-	( getFirstRepositoryR
+	( redirect FirstRepositoryR
 	, page "Configuration" (Just Configuration) $ do
 #ifdef WITH_XMPP
 		xmppconfigured <- liftAnnex $ isJust <$> getXMPPCreds