summaryrefslogtreecommitdiff
path: root/Command/DropUnused.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-28 17:26:38 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-28 17:26:38 -0400
commit6c31e3a8c3c5ab92ca2e84b4c166f32d02a50f4f (patch)
tree8f0b857728feca852c7907c2dcb552ff87e8c582 /Command/DropUnused.hs
parent33e18d3d02865ac0677fc1f22de2352b92f184a8 (diff)
drop --from is now supported to remove file content from a remote.
Diffstat (limited to 'Command/DropUnused.hs')
-rw-r--r--Command/DropUnused.hs5
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