From 001d82f953a4d156dee8ec77209eab7b4a4d0bad Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 4 May 2013 16:35:54 -0400
Subject: [PATCH] fix warning

---
 Assistant/WebApp/Configurators/Local.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Assistant/WebApp/Configurators/Local.hs b/Assistant/WebApp/Configurators/Local.hs
index cb366db8f2..7197c10642 100644
--- a/Assistant/WebApp/Configurators/Local.hs
+++ b/Assistant/WebApp/Configurators/Local.hs
@@ -313,12 +313,12 @@ driveList = return []
  - repository, by running the postFirstRun callback, which returns the
  - url to the new webapp. -}
 startFullAssistant :: FilePath -> StandardGroup -> Handler ()
-startFullAssistant path group = do
+startFullAssistant path repogroup = do
 	webapp <- getYesod
 	url <- liftIO $ do
 		isnew <- makeRepo path False
 		u <- initRepo isnew True path Nothing
-		inDir path $ setStandardGroup u group
+		inDir path $ setStandardGroup u repogroup
 		addAutoStartFile path
 		changeWorkingDirectory path
 		fromJust $ postFirstRun webapp