diff options
author | Joey Hess <joey@kitenet.net> | 2013-05-11 18:23:41 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-05-11 18:23:41 -0400 |
commit | 618af8b6772d25ab27336d240ecddae7ae207561 (patch) | |
tree | 9e48ea32c7cbe11603ab599b5e0616457cd4de4e /Git | |
parent | db56fab07ddd6910b1dc08f4fa242c267c469eb5 (diff) |
clean up from windows porting
Diffstat (limited to 'Git')
-rwxr-xr-x | Git/CurrentRepo.hs | 4 | ||||
-rw-r--r-- | Git/Index.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Git/CurrentRepo.hs b/Git/CurrentRepo.hs index 4b8c1fca8..769956aee 100755 --- a/Git/CurrentRepo.hs +++ b/Git/CurrentRepo.hs @@ -11,13 +11,13 @@ module Git.CurrentRepo where #ifndef __WINDOWS__ import System.Posix.Directory (changeWorkingDirectory) -import System.Posix.Env (getEnv, unsetEnv) #endif import Common import Git.Types import Git.Construct import qualified Git.Config +import Utility.Env {- Gets the current git repository. - @@ -51,7 +51,7 @@ get = do v <- getEnv s case v of Just d -> do - unsetEnv s + void $ unsetEnv s Just <$> absPath d Nothing -> return Nothing #else diff --git a/Git/Index.hs b/Git/Index.hs index 80196ef78..5b660bb30 100644 --- a/Git/Index.hs +++ b/Git/Index.hs @@ -7,7 +7,7 @@ module Git.Index where -import System.Posix.Env (setEnv, unsetEnv, getEnv) +import Utility.Env {- Forces git to use the specified index file. - |