mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

optimize away 3 stats

Browse source
This commit is contained in:
Joey Hess 2012-01-14 11:28:49 -04:00
parent ff5703ce77
commit 1f66af2b53
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
Git/Construct.hs
View file

@ -239,14 +239,15 @@ seekUp want dir = do
isRepoTop :: FilePath -> IO Bool isRepoTop :: FilePath -> IO Bool
isRepoTop dir = do isRepoTop dir = do
r <- isRepo r <- isRepo
b <- isBareRepo if r
return (r || b) then return r
else isBareRepo
where where
isRepo = gitSignature ".git" ".git/config" isRepo = gitSignature (".git" </> "config")
isBareRepo = gitSignature "objects" "config" isBareRepo = (&&)
gitSignature subdir file = liftM2 (&&) <$> doesDirectoryExist (dir </> "objects")
(doesDirectoryExist (dir ++ "/" ++ subdir)) <*> gitSignature "config"
(doesFileExist (dir ++ "/" ++ file)) gitSignature file = doesFileExist (dir </> file)
newFrom :: RepoLocation -> IO Repo newFrom :: RepoLocation -> IO Repo
newFrom l = return Repo newFrom l = return Repo