diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-07-10 13:18:46 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-07-10 13:23:06 -0400 |
commit | 19a3a331c35238a10ec2c537cf64d0b4c1fb290c (patch) | |
tree | ca5d79d0be1a80c01c9ad452331bdbebc1c4430a /Command/Drop.hs | |
parent | 9886c302ef538e538ec7d48b94374b9d2400004f (diff) |
finished converting all the main 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 |