diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-26 16:25:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-26 16:25:55 -0400 |
| commit | 4f050ca9b80d0565e408137f2422e808b82cfd11 (patch) | |
| tree | 5aca9688e49dee8915a962de4baf4c305ccbfa9e /Command/DropUnused.hs | |
| parent | 541178b499d084e4041ae4b9d62bf86f5a97c3ff (diff) | |
reorganize some files and imports
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 |