diff options
Diffstat (limited to 'Git/CurrentRepo.hs')
| -rwxr-xr-x | Git/CurrentRepo.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Git/CurrentRepo.hs b/Git/CurrentRepo.hs index b2c15c23f..4b8c1fca8 100755 --- a/Git/CurrentRepo.hs +++ b/Git/CurrentRepo.hs @@ -9,7 +9,7 @@ module Git.CurrentRepo where -#ifndef mingw32_HOST_OS +#ifndef __WINDOWS__ import System.Posix.Directory (changeWorkingDirectory) import System.Posix.Env (getEnv, unsetEnv) #endif @@ -39,18 +39,24 @@ get = do case wt of Nothing -> return r Just d -> do +#ifndef __WINDOWS__ cwd <- getCurrentDirectory unless (d `dirContains` cwd) $ changeWorkingDirectory d +#endif return $ addworktree wt r where pathenv s = do +#ifndef __WINDOWS__ v <- getEnv s case v of Just d -> do unsetEnv s Just <$> absPath d Nothing -> return Nothing +#else + return Nothing +#endif configure Nothing (Just r) = Git.Config.read r configure (Just d) _ = do |