diff options
Diffstat (limited to 'Command/Drop.hs')
-rw-r--r-- | Command/Drop.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index 7141cbc48..feb89b70e 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -23,9 +23,10 @@ import Annex.Notification import qualified Data.Set as S cmd :: Command -cmd = command "drop" SectionCommon - "remove content of files from repository" - paramPaths (seek <$$> optParser) +cmd = withGlobalOptions annexedMatchingOptions $ + command "drop" SectionCommon + "remove content of files from repository" + paramPaths (seek <$$> optParser) data DropOptions = DropOptions { dropFiles :: CmdParams @@ -34,8 +35,6 @@ data DropOptions = DropOptions , keyOptions :: Maybe KeyOptions } --- TODO: annexedMatchingOptions - optParser :: CmdParamsDesc -> Parser DropOptions optParser desc = DropOptions <$> cmdParams desc |