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

5
Command/Unused.hs
View file

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

1
debian/changelog vendored
View file

@ -2,6 +2,7 @@ git-annex (3.20120722) UNRELEASED; urgency=low
* initremote: Avoid recording remote's description before checking * initremote: Avoid recording remote's description before checking
that its config is valid. that its config is valid.
* unused, status: Avoid crashing when ran in bare repo.
-- Joey Hess <joeyh@debian.org> Fri, 27 Jul 2012 21:04:47 -0400 -- Joey Hess <joeyh@debian.org> Fri, 27 Jul 2012 21:04:47 -0400