diff options
author | Joey Hess <joeyh@joeyh.name> | 2018-02-19 14:28:17 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2018-02-19 14:32:15 -0400 |
commit | ec1e50642b62fa3dcf5a2c9f7fd582e403c17627 (patch) | |
tree | 96463a73c79b274cc8f54123719f292547faa0ad /Command/Find.hs | |
parent | 0366c6eac698327ced9c63e241a9474a5c2a7e20 (diff) |
add --json-error-messages (not yet implemented)
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.
Diffstat (limited to 'Command/Find.hs')
-rw-r--r-- | Command/Find.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Find.hs b/Command/Find.hs index 03ac72f96..10eff3527 100644 --- a/Command/Find.hs +++ b/Command/Find.hs @@ -18,12 +18,12 @@ import qualified Utility.Format import Utility.DataUnits cmd :: Command -cmd = withGlobalOptions annexedMatchingOptions $ mkCommand $ +cmd = withGlobalOptions [annexedMatchingOptions] $ mkCommand $ command "find" SectionQuery "lists available files" paramPaths (seek <$$> optParser) mkCommand :: Command -> Command -mkCommand = noCommit . noMessages . withGlobalOptions [jsonOption] +mkCommand = noCommit . noMessages . withGlobalOptions [jsonOptions] data FindOptions = FindOptions { findThese :: CmdParams |