tweak

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 {

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
+gitRepoFromCwd :: IO GitRepo
-gitRepoCurrent = do
+gitRepoFromCwd = do
 	cwd <- getCurrentDirectory
 	top <- seekUp cwd isRepoTop
 	case top of