diff options
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 af90303fb..a3409ab1b 100644 --- a/Command/DropUnused.hs +++ b/Command/DropUnused.hs @@ -13,12 +13,11 @@ import qualified Annex import qualified Command.Drop import qualified Remote import qualified Git -import qualified Option import Command.Unused (withUnusedMaps, UnusedMaps(..), startUnused) import Config.NumCopies def :: [Command] -def = [withOptions [Command.Drop.fromOption] $ +def = [withOptions [Command.Drop.dropFromOption] $ command "dropunused" (paramRepeating paramNumRange) seek SectionMaintenance "drop unused file content"] @@ -37,7 +36,7 @@ perform numcopies key = maybe droplocal dropremote =<< Remote.byNameWithUUID =<< showAction $ "from " ++ Remote.name r Command.Drop.performRemote key numcopies r droplocal = Command.Drop.performLocal key numcopies Nothing - from = Annex.getField $ Option.name Command.Drop.fromOption + from = Annex.getField $ optionName Command.Drop.dropFromOption performOther :: (Key -> Git.Repo -> FilePath) -> Key -> CommandPerform performOther filespec key = do |