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

tweak

Browse source
This commit is contained in:
Joey Hess 2010-10-12 02:40:09 -04:00
parent 97b31a525e
commit 8f069bd287
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
GitRepo.hs
View file

@ -7,7 +7,7 @@
module GitRepo (
GitRepo,
gitRepoCurrent,
gitRepoFromCwd,
gitRepoFromPath,
gitRepoFromUrl,
gitWorkTree,
@ -183,8 +183,8 @@ gitConfigRemotes repo = mapM construct remotes
else gitRepoFromPath r
{- Finds the current git repository, which may be in a parent directory. -}
gitRepoCurrent :: IO GitRepo
gitRepoCurrent = do
gitRepoFromCwd :: IO GitRepo
gitRepoFromCwd = do
cwd <- getCurrentDirectory
top <- seekUp cwd isRepoTop
case top of