proper fix for dropunused

Now getKeysPresent checks that the key's content, not only its directory,
exists. In direct mode, the inode cache file is used as a standin for the
content.

removeAnnex always removes the inode cache file, and drop and move --from
always call removeAnnex, even if the object does not seem to be inAnnex,
to ensure it's always deleted.
This commit is contained in:
Joey Hess 2013-02-15 17:58:49 -04:00
parent 55069f0fab
commit 397082013a
4 changed files with 30 additions and 13 deletions

View file

@ -104,7 +104,7 @@ toPerform dest move key file = moveLock move key $ do
Remote.logStatus dest key InfoPresent
if move
then do
whenM (inAnnex key) $ removeAnnex key
removeAnnex key
next $ Command.Drop.cleanupLocal key
else next $ return True