tweak

2 files changed, 4 insertions, 4 deletions

diff --git a/Annex.hs b/Annex.hs
index 5a7274ca1..3461a92cd 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -31,7 +31,7 @@ annexDir repo key = gitDir repo ++ "/annex/" ++ key
  - later. -}
 startAnnex :: IO State
 startAnnex = do
-	r <- gitRepoCurrent
+	r <- gitRepoFromCwd
 	gitPrep r
 
 	return State {
diff --git a/GitRepo.hs b/GitRepo.hs
index 27fc0632c..643b725e6 100644
--- a/GitRepo.hs
+++ b/GitRepo.hs
@@ -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