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/Get.hs | |
| parent | 9886c302ef538e538ec7d48b94374b9d2400004f (diff) | |
finished converting all the main options
Diffstat (limited to 'Command/Get.hs')
| -rw-r--r-- | Command/Get.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Command/Get.hs b/Command/Get.hs index 3af09b642..324ff2752 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -17,9 +17,10 @@ import Annex.Wanted import qualified Command.Move cmd :: Command -cmd = command "get" SectionCommon - "make content of annexed files available" - paramPaths (seek <$$> optParser) +cmd = withGlobalOptions (jobsOption : annexedMatchingOptions) $ + command "get" SectionCommon + "make content of annexed files available" + paramPaths (seek <$$> optParser) data GetOptions = GetOptions { getFiles :: CmdParams @@ -35,8 +36,6 @@ optParser desc = GetOptions <*> parseAutoOption <*> optional (parseKeyOptions True) --- TODO: jobsOption, annexedMatchingOptions - seek :: GetOptions -> CommandSeek seek o = do from <- maybe (pure Nothing) (Just <$$> getParsed) (getFrom o) |