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

unused, status: Avoid crashing when ran in bare repo.

Browse source
This commit is contained in:
Joey Hess 2012-08-05 15:01:26 -04:00
parent 39c2f1ed04
commit b885c0c6c8
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/Unused.hs
View file

@ -229,9 +229,12 @@ withKeysReferencedM a = withKeysReferenced' () calla
withKeysReferenced' :: v -> (Key -> v -> Annex v) -> Annex v
withKeysReferenced' initial a = go initial =<< files
where
files = do
top <- fromRepo Git.repoPath
inRepo $ LsFiles.inRepo [top]
files = ifM isBareRepo
( return []
, do
top <- fromRepo Git.repoPath
inRepo $ LsFiles.inRepo [top]
)
go v [] = return v
go v (f:fs) = do
x <- Backend.lookupFile f