diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-10 20:38:11 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-10 20:38:11 -0400 |
| commit | 41ef4b363d155294e77ef8054fb93e2075e89ae2 (patch) | |
| tree | a151ee927d3a2f6d19819d4ca277a9d34c15d4f3 /Command/FindRef.hs | |
| parent | 8d20a65920cb6ddad186fa11b6fa21a61684de16 (diff) | |
convert FindRef
Diffstat (limited to 'Command/FindRef.hs')
| -rw-r--r-- | Command/FindRef.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Command/FindRef.hs b/Command/FindRef.hs index cd7583b96..8de7d9e59 100644 --- a/Command/FindRef.hs +++ b/Command/FindRef.hs @@ -7,16 +7,15 @@ module Command.FindRef where +import Common.Annex import Command import qualified Command.Find as Find cmd :: Command -cmd = withOptions nonWorkTreeMatchingOptions $ Find.mkCommand $ +cmd = withGlobalOptions nonWorkTreeMatchingOptions $ Find.mkCommand $ command "findref" SectionPlumbing "lists files in a git ref" - paramRef (withParams seek) + paramRef (seek <$$> Find.optParser) -seek :: CmdParams -> CommandSeek -seek refs = do - format <- Find.getFormat - Find.start format `withFilesInRefs` refs +seek :: Find.FindOptions -> CommandSeek +seek o = Find.start o `withFilesInRefs` Find.findThese o |