use setCurrentDirectory
On POSIX, this just calls changeWorkingDirectory.
This commit is contained in:
parent
18bdff3fae
commit
1e2ddcb68a
5 changed files with 8 additions and 18 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue