dropunused: Make more robust when trying to drop an object that has already been dropped.

Before it crashed trying to lock the not-present content and prevented
dropping anything else. Instead, succeed.

1 files changed, 9 insertions, 2 deletions

diff --git a/Command/DropUnused.hs b/Command/DropUnused.hs
index 9c2ae972a..d9f02a370 100644
--- a/Command/DropUnused.hs
+++ b/Command/DropUnused.hs
@@ -14,6 +14,7 @@ import qualified Remote
 import qualified Git
 import Command.Unused (withUnusedMaps, UnusedMaps(..), startUnused)
 import Annex.NumCopies
+import Annex.Content
 
 cmd :: Command
 cmd = command "dropunused" SectionMaintenance
@@ -37,14 +38,20 @@ seek o = do
 	withUnusedMaps (start from numcopies) (rangesToDrop o)
 
 start :: Maybe Remote -> NumCopies -> UnusedMaps -> Int -> CommandStart
-start from numcopies = startUnused "dropunused" (perform from numcopies) (performOther gitAnnexBadLocation) (performOther gitAnnexTmpObjectLocation)
+start from numcopies = startUnused "dropunused"
+	(perform from numcopies)
+	(performOther gitAnnexBadLocation)
+	(performOther gitAnnexTmpObjectLocation)
 
 perform :: Maybe Remote -> NumCopies -> Key -> CommandPerform
 perform from numcopies key = case from of
 	Just r -> do
 		showAction $ "from " ++ Remote.name r
 		Command.Drop.performRemote key Nothing numcopies r
-	Nothing -> Command.Drop.performLocal key Nothing numcopies []
+	Nothing -> ifM (inAnnex key)
+		( Command.Drop.performLocal key Nothing numcopies []
+		, next (return True)
+		)
 
 performOther :: (Key -> Git.Repo -> FilePath) -> Key -> CommandPerform
 performOther filespec key = do