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

use setCurrentDirectory

Browse source 
On POSIX, this just calls changeWorkingDirectory.
This commit is contained in:
Joey Hess 2013-05-11 19:14:30 -04:00
parent 18bdff3fae
commit 1e2ddcb68a
5 changed files with 8 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -38,7 +38,6 @@ import Config
import qualified Data.Text as T
import qualified Data.Map as M
import Data.Char
import System.Posix.Directory
data RepositoryPath = RepositoryPath Text
deriving Show
@ -320,7 +319,7 @@ startFullAssistant path repogroup = do
u <- initRepo isnew True path Nothing
inDir path $ setStandardGroup u repogroup
addAutoStartFile path
changeWorkingDirectory path
setCurrentDirectory path
fromJust $ postFirstRun webapp
redirect $ T.pack url