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/Move.hs | |
| parent | 9886c302ef538e538ec7d48b94374b9d2400004f (diff) | |
finished converting all the main options
Diffstat (limited to 'Command/Move.hs')
| -rw-r--r-- | Command/Move.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Command/Move.hs b/Command/Move.hs index 087ea0a7b..d95bce6ab 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -18,9 +18,10 @@ import Annex.Transfer import Logs.Presence cmd :: Command -cmd = command "move" SectionCommon - "move content of files to/from another repository" - paramPaths (seek <--< optParser) +cmd = withGlobalOptions (jobsOption : annexedMatchingOptions) $ + command "move" SectionCommon + "move content of files to/from another repository" + paramPaths (seek <--< optParser) data MoveOptions = MoveOptions { moveFiles :: CmdParams @@ -28,8 +29,6 @@ data MoveOptions = MoveOptions , keyOptions :: Maybe KeyOptions } --- TODO: jobsOption, annexedMatchingOptions - optParser :: CmdParamsDesc -> Parser MoveOptions optParser desc = MoveOptions <$> cmdParams desc |