diff options
Diffstat (limited to 'Command/DropUnused.hs')
| -rw-r--r-- | Command/DropUnused.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/DropUnused.hs b/Command/DropUnused.hs index 55c21f83b..2c3bb296a 100644 --- a/Command/DropUnused.hs +++ b/Command/DropUnused.hs @@ -55,7 +55,8 @@ perform key = maybe droplocal dropremote =<< Annex.getState Annex.fromremote dropremote name = do r <- Remote.byName name showAction $ "from " ++ Remote.name r - next $ Command.Drop.cleanupRemote key r + ok <- Remote.removeKey r key + next $ Command.Drop.cleanupRemote key r ok droplocal = Command.Drop.performLocal key (Just 0) -- force drop performOther :: (Key -> Git.Repo -> FilePath) -> Key -> CommandPerform |