diff options
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 |