unused, dropunused: Now work in bare repositories.

Turned out I had already done all the work needed to support this when
unused started checking all branches.
This commit is contained in:
Joey Hess 2011-10-29 19:16:45 -04:00
parent c102e63595
commit 22e9f445ab
5 changed files with 13 additions and 14 deletions

View file

@ -36,7 +36,7 @@ seek = [withNothing start]
{- Finds unused content in the annex. -}
start :: CommandStart
start = notBareRepo $ do
start = do
from <- Annex.getState Annex.fromremote
let (name, action) = case from of
Nothing -> (".", checkUnused)