diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-08 15:08:02 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-08 15:08:02 -0400 |
| commit | e7e61fb6cbe5455ded9bb550a64121223c099fc2 (patch) | |
| tree | 003a99697256ea516ad40f9fbdb854996b58c0cd /Command/Find.hs | |
| parent | 8879c96d157f06bbd2372064251676b7927ce38e (diff) | |
convert all commands to work with optparse-applicative
Still no options though.
Diffstat (limited to 'Command/Find.hs')
| -rw-r--r-- | Command/Find.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/Find.hs b/Command/Find.hs index d0bb165c3..5a0a08973 100644 --- a/Command/Find.hs +++ b/Command/Find.hs @@ -21,7 +21,8 @@ import Types.Key cmd :: Command cmd = withOptions annexedMatchingOptions $ mkCommand $ - command "find" paramPaths seek SectionQuery "lists available files" + command "find" SectionQuery "lists available files" + paramPaths (withParams seek) mkCommand :: Command -> Command mkCommand = noCommit . noMessages . withOptions [formatOption, print0Option, jsonOption] @@ -38,7 +39,7 @@ print0Option = Option [] ["print0"] (NoArg set) where set = Annex.setField (optionName formatOption) "${file}\0" -seek :: CommandSeek +seek :: CmdParams -> CommandSeek seek ps = do format <- getFormat withFilesInGit (whenAnnexed $ start format) ps |