diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-04 13:54:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-04 14:05:36 -0400 |
| commit | 8d2f003c63e0c1db0758e06f02b999365f8413a9 (patch) | |
| tree | 1d8dbda0065630a5b1f153249ea12ce17e4e68e0 /Git/CurrentRepo.hs | |
| parent | 6db0c4414a0afee7118a9193800b627c40968fa1 (diff) | |
avoid more build warnings on Windows
Diffstat (limited to 'Git/CurrentRepo.hs')
| -rw-r--r-- | Git/CurrentRepo.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Git/CurrentRepo.hs b/Git/CurrentRepo.hs index 777caa981..ee91a6b81 100644 --- a/Git/CurrentRepo.hs +++ b/Git/CurrentRepo.hs @@ -13,7 +13,9 @@ import Common import Git.Types import Git.Construct import qualified Git.Config +#ifndef mingw32_HOST_OS import Utility.Env +#endif {- Gets the current git repository. - @@ -40,8 +42,8 @@ get = do setCurrentDirectory d return $ addworktree wt r where - pathenv s = do #ifndef mingw32_HOST_OS + pathenv s = do v <- getEnv s case v of Just d -> do @@ -49,7 +51,7 @@ get = do Just <$> absPath d Nothing -> return Nothing #else - return Nothing + pathenv _ = return Nothing #endif configure Nothing (Just r) = Git.Config.read r |