diff options
author | Joey Hess <joey@kitenet.net> | 2013-05-11 19:14:30 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-05-11 19:14:30 -0400 |
commit | cbc98eee9d583f56d52a70fbff7abe171a1ecebe (patch) | |
tree | 90dacacdd69cbeb1770c48471d40fc3892c51217 /Command/WebApp.hs | |
parent | 618af8b6772d25ab27336d240ecddae7ae207561 (diff) |
use setCurrentDirectory
On POSIX, this just calls changeWorkingDirectory.
Diffstat (limited to 'Command/WebApp.hs')
-rw-r--r-- | Command/WebApp.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs index 705ff6980..d15319078 100644 --- a/Command/WebApp.hs +++ b/Command/WebApp.hs @@ -28,7 +28,6 @@ import qualified Annex import Config.Files import qualified Option -import System.Posix.Directory import Control.Concurrent import Control.Concurrent.STM import System.Process (env, std_out, std_err) @@ -97,7 +96,7 @@ startNoRepo = do case dirs of [] -> firstRun listenhost (d:_) -> do - changeWorkingDirectory d + setCurrentDirectory d state <- Annex.new =<< Git.CurrentRepo.get void $ Annex.eval state $ doCommand $ start' False listenhost |