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 dir = do
r <- isRepo
b <- isBareRepo
return (r || b)
if r
then return r
else isBareRepo
where
isRepo = gitSignature ".git" ".git/config"
isBareRepo = gitSignature "objects" "config"
gitSignature subdir file = liftM2 (&&)
(doesDirectoryExist (dir ++ "/" ++ subdir))
(doesFileExist (dir ++ "/" ++ file))
isRepo = gitSignature (".git" </> "config")
isBareRepo = (&&)
<$> doesDirectoryExist (dir </> "objects")
<*> gitSignature "config"
gitSignature file = doesFileExist (dir </> file)
newFrom :: RepoLocation -> IO Repo
newFrom l = return Repo