unused: Fix to actually detect unused keys when in direct mode.

This commit is contained in:
Joey Hess 2014-02-20 13:53:49 -04:00
parent 5ef4f1d603
commit db48b8a4a3
2 changed files with 5 additions and 2 deletions

View file

@ -491,9 +491,11 @@ getKeysPresent = do
{- In indirect mode, look for the key. In direct mode,
- the inode cache file is only present when a key's content
- is present. -}
- is present, so can be used as a surrogate if the content
- is not located in the annex directory. -}
present False d = doesFileExist $ contentfile d
present True d = doesFileExist $ contentfile d ++ ".cache"
present True d = doesFileExist (contentfile d ++ ".cache")
<||> present False d
contentfile d = d </> takeFileName d
{- Things to do to record changes to content when shutting down.