unused: Fix to actually detect unused keys when in direct mode.
This commit is contained in:
parent
5ef4f1d603
commit
db48b8a4a3
2 changed files with 5 additions and 2 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue