aboutsummaryrefslogtreecommitdiff
path: root/Git/CurrentRepo.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-11 19:14:30 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-11 19:14:30 -0400
commitcbc98eee9d583f56d52a70fbff7abe171a1ecebe (patch)
tree90dacacdd69cbeb1770c48471d40fc3892c51217 /Git/CurrentRepo.hs
parent618af8b6772d25ab27336d240ecddae7ae207561 (diff)
use setCurrentDirectory
On POSIX, this just calls changeWorkingDirectory.
Diffstat (limited to 'Git/CurrentRepo.hs')
-rwxr-xr-xGit/CurrentRepo.hs8
1 files changed, 1 insertions, 7 deletions
diff --git a/Git/CurrentRepo.hs b/Git/CurrentRepo.hs
index 769956aee..2a8807488 100755
--- a/Git/CurrentRepo.hs
+++ b/Git/CurrentRepo.hs
@@ -9,10 +9,6 @@
module Git.CurrentRepo where
-#ifndef __WINDOWS__
-import System.Posix.Directory (changeWorkingDirectory)
-#endif
-
import Common
import Git.Types
import Git.Construct
@@ -39,11 +35,9 @@ get = do
case wt of
Nothing -> return r
Just d -> do
-#ifndef __WINDOWS__
cwd <- getCurrentDirectory
unless (d `dirContains` cwd) $
- changeWorkingDirectory d
-#endif
+ setCurrentDirectory d
return $ addworktree wt r
where
pathenv s = do