use setCurrentDirectory

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

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