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

fix setting the group of the first repo created

Browse source
This commit is contained in:
Joey Hess 2012-10-10 16:32:15 -04:00
parent 4e2e08b45a
commit 5d85c1497c
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -264,10 +264,11 @@ driveList = mapM (gen . mnt_dir) =<< filter sane <$> getMounts
startFullAssistant :: FilePath -> Handler () startFullAssistant :: FilePath -> Handler ()
startFullAssistant path = do startFullAssistant path = do
webapp <- getYesod webapp <- getYesod
liftIO $ makeRepo path False
u <- liftIO $ initRepo path Nothing
runAnnex () $ setStandardGroup u ClientGroup
url <- liftIO $ do url <- liftIO $ do
makeRepo path False
u <- initRepo path Nothing
inDir path $
setStandardGroup u ClientGroup
addAutoStart path addAutoStart path
changeWorkingDirectory path changeWorkingDirectory path
fromJust $ postFirstRun webapp fromJust $ postFirstRun webapp