diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-24 16:30:15 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-24 16:30:15 -0400 |
| commit | a00262011dc7f4ccac8c5c40d845224c281c56b2 (patch) | |
| tree | e59997bf6b311fdfdd0ba80d864864c40e78484b /Command/DropUnused.hs | |
| parent | ac4be3de323345ab4a6cb4a624b975ac686cc2d5 (diff) | |
webapp and assistant glacier support
Diffstat (limited to 'Command/DropUnused.hs')
| -rw-r--r-- | Command/DropUnused.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/DropUnused.hs b/Command/DropUnused.hs index 00c0eec12..95af062f5 100644 --- a/Command/DropUnused.hs +++ b/Command/DropUnused.hs @@ -34,7 +34,7 @@ perform key = maybe droplocal dropremote =<< Remote.byName =<< from showAction $ "from " ++ Remote.name r ok <- Remote.removeKey r key next $ Command.Drop.cleanupRemote key r ok - droplocal = Command.Drop.performLocal key (Just 0) -- force drop + droplocal = Command.Drop.performLocal key (Just 0) Nothing -- force drop from = Annex.getField $ Option.name Command.Drop.fromOption performOther :: (Key -> Git.Repo -> FilePath) -> Key -> CommandPerform |