summaryrefslogtreecommitdiff
path: root/Git/Construct.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-01-14 11:48:10 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-01-14 11:48:10 -0400
commit8c87293b4886bd7b3389c3a3066e2c6cfa9f1a56 (patch)
tree9a3ad67970177409808039926c4910360c038956 /Git/Construct.hs
parent92a4af8b2019de2fac6df9c1e92e3858fe644639 (diff)
avoid unnecessary stats when traversing to parent
Diffstat (limited to 'Git/Construct.hs')
-rw-r--r--Git/Construct.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/Git/Construct.hs b/Git/Construct.hs
index fdc56a20a..bfb16164f 100644
--- a/Git/Construct.hs
+++ b/Git/Construct.hs
@@ -244,9 +244,11 @@ isRepoTop dir = do
else isBareRepo
where
isRepo = gitSignature (".git" </> "config")
- isBareRepo = (&&)
- <$> doesDirectoryExist (dir </> "objects")
- <*> gitSignature "config"
+ isBareRepo = do
+ e <- doesDirectoryExist (dir </> "objects")
+ if not e
+ then return e
+ else gitSignature "config"
gitSignature file = doesFileExist (dir </> file)
newFrom :: RepoLocation -> IO Repo