summaryrefslogtreecommitdiff
path: root/GitRepo.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-12 02:40:09 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-12 02:40:09 -0400
commit8f069bd2875022cfceb0c50cb9a5667a9bae88d8 (patch)
tree14730a32c4defc0fa2982f813f55f801041dce93 /GitRepo.hs
parent97b31a525e31abf1db95154d09c7efa368d3f59c (diff)
tweak
Diffstat (limited to 'GitRepo.hs')
-rw-r--r--GitRepo.hs6
1 files changed, 3 insertions, 3 deletions
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