mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

simplify

Browse source
This commit is contained in:
Joey Hess 2012-10-15 23:12:50 -04:00
parent 9b6628bca9
commit 148d9f0088
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Git/CurrentRepo.hs
View file

@ -42,11 +42,11 @@ get = do
where where
pathenv s = do pathenv s = do
v <- getEnv s v <- getEnv s
when (isJust v) $
unsetEnv s
case v of case v of
Just d -> do
unsetEnv s
Just <$> absPath d
Nothing -> return Nothing Nothing -> return Nothing
Just d -> Just <$> absPath d
configure Nothing r = Git.Config.read r configure Nothing r = Git.Config.read r
configure (Just d) r = do configure (Just d) r = do
r' <- Git.Config.read r r' <- Git.Config.read r