6583448bab
Added --json-error-messages option, which includes error messages in the json output, rather than outputting them to stderr. The actual rediretion of errors is not implemented yet, this is only the docs and option plumbing. This commit was supported by the NSF-funded DataLad project.
21 lines
536 B
Haskell
21 lines
536 B
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2014 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Command.FindRef where
|
|
|
|
import Command
|
|
import qualified Command.Find as Find
|
|
import qualified Git
|
|
|
|
cmd :: Command
|
|
cmd = withGlobalOptions [nonWorkTreeMatchingOptions] $ Find.mkCommand $
|
|
command "findref" SectionPlumbing
|
|
"lists files in a git ref"
|
|
paramRef (seek <$$> Find.optParser)
|
|
|
|
seek :: Find.FindOptions -> CommandSeek
|
|
seek o = Find.start o `withFilesInRefs` (map Git.Ref $ Find.findThese o)
|