diff options
Diffstat (limited to 'Git/Construct.hs')
-rw-r--r-- | Git/Construct.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/Construct.hs b/Git/Construct.hs index 49905f818..3f3ea9747 100644 --- a/Git/Construct.hs +++ b/Git/Construct.hs @@ -48,7 +48,7 @@ import qualified Git.Url as Url fromCurrent :: IO Repo fromCurrent = do r <- maybe fromCwd fromPath =<< getEnv "GIT_DIR" - maybe (return ()) changeWorkingDirectory =<< getEnv "GIT_WORK_TREE" + maybe noop changeWorkingDirectory =<< getEnv "GIT_WORK_TREE" unsetEnv "GIT_DIR" unsetEnv "GIT_WORK_TREE" return r |