diff options
Diffstat (limited to 'Command/Drop.hs')
-rw-r--r-- | Command/Drop.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index f7491deae..8e5ecc952 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -60,7 +60,10 @@ performLocal key numcopies knownpresentremote = lockContent key $ do untrusteduuids <- trustGet UnTrusted let tocheck = Remote.remotesWithoutUUID remotes (trusteduuids'++untrusteduuids) stopUnless (canDropKey key numcopies trusteduuids' tocheck []) $ do - whenM (inAnnex key) $ removeAnnex key + whenM (inAnnex key) $ + removeAnnex key + {- Clean up stale direct mode files that may exist. -} + cleanObjectLoc key next $ cleanupLocal key performRemote :: Key -> Maybe Int -> Remote -> CommandPerform |