From cbc98eee9d583f56d52a70fbff7abe171a1ecebe Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 11 May 2013 19:14:30 -0400 Subject: use setCurrentDirectory On POSIX, this just calls changeWorkingDirectory. --- Command/WebApp.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Command/WebApp.hs') 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 -- cgit v1.2.3