diff options
author | Joey Hess <joey@kitenet.net> | 2011-10-28 17:26:38 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-10-28 17:26:38 -0400 |
commit | 6c31e3a8c3c5ab92ca2e84b4c166f32d02a50f4f (patch) | |
tree | 8f0b857728feca852c7907c2dcb552ff87e8c582 /Command/DropUnused.hs | |
parent | 33e18d3d02865ac0677fc1f22de2352b92f184a8 (diff) |
drop --from is now supported to remove file content from a remote.
Diffstat (limited to 'Command/DropUnused.hs')
-rw-r--r-- | Command/DropUnused.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Command/DropUnused.hs b/Command/DropUnused.hs index 1236fb823..46f2dc9f7 100644 --- a/Command/DropUnused.hs +++ b/Command/DropUnused.hs @@ -13,7 +13,6 @@ import Common.Annex import Command import qualified Annex import qualified Command.Drop -import qualified Command.Move import qualified Remote import qualified Git import Types.Key @@ -56,8 +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.Move.fromCleanup r True key - droplocal = Command.Drop.perform key (Just 0) -- force drop + next $ Command.Drop.cleanupRemote key r + droplocal = Command.Drop.performLocal key (Just 0) -- force drop performOther :: (Git.Repo -> Key -> FilePath) -> Key -> CommandPerform performOther filespec key = do |