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

fix warning

Browse source
This commit is contained in:
Joey Hess 2013-05-04 16:35:54 -04:00
parent 621384ead3
commit 001d82f953
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Configurators/Local.hs
View file

@ -313,12 +313,12 @@ driveList = return []
- repository, by running the postFirstRun callback, which returns the - repository, by running the postFirstRun callback, which returns the
- url to the new webapp. -} - url to the new webapp. -}
startFullAssistant :: FilePath -> StandardGroup -> Handler () startFullAssistant :: FilePath -> StandardGroup -> Handler ()
startFullAssistant path group = do startFullAssistant path repogroup = do
webapp <- getYesod webapp <- getYesod
url <- liftIO $ do url <- liftIO $ do
isnew <- makeRepo path False isnew <- makeRepo path False
u <- initRepo isnew True path Nothing u <- initRepo isnew True path Nothing
inDir path $ setStandardGroup u group inDir path $ setStandardGroup u repogroup
addAutoStartFile path addAutoStartFile path
changeWorkingDirectory path changeWorkingDirectory path
fromJust $ postFirstRun webapp fromJust $ postFirstRun webapp