From 8f069bd2875022cfceb0c50cb9a5667a9bae88d8 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 12 Oct 2010 02:40:09 -0400
Subject: tweak

---
 Annex.hs   | 2 +-
 GitRepo.hs | 6 +++---
 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
-- 
cgit v1.2.3