diff options
Diffstat (limited to 'Command/Drop.hs')
| -rw-r--r-- | Command/Drop.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index 6adc13ca5..35c2f5cf4 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -23,9 +23,12 @@ import Annex.Notification import qualified Data.Set as S cmd :: [Command] -cmd = [withOptions [dropFromOption] $ command "drop" paramPaths seek +cmd = [withOptions (dropOptions) $ command "drop" paramPaths seek SectionCommon "indicate content of files not currently wanted"] +dropOptions :: [Option] +dropOptions = dropFromOption : annexedMatchingOptions + dropFromOption :: Option dropFromOption = fieldOption ['f'] "from" paramRemote "drop content from a remote" |