diff options
Diffstat (limited to 'Git/CurrentRepo.hs')
-rw-r--r-- | Git/CurrentRepo.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Git/CurrentRepo.hs b/Git/CurrentRepo.hs index de11ce217..861df1b64 100644 --- a/Git/CurrentRepo.hs +++ b/Git/CurrentRepo.hs @@ -42,11 +42,11 @@ get = do where pathenv s = do v <- getEnv s - when (isJust v) $ - unsetEnv s case v of + Just d -> do + unsetEnv s + Just <$> absPath d Nothing -> return Nothing - Just d -> Just <$> absPath d configure Nothing r = Git.Config.read r configure (Just d) r = do r' <- Git.Config.read r |