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 /Types | |
| 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 'Types')
| -rw-r--r-- | Types/Messages.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Types/Messages.hs b/Types/Messages.hs index f259f3200..d45174bb7 100644 --- a/Types/Messages.hs +++ b/Types/Messages.hs @@ -21,12 +21,14 @@ data OutputType = NormalOutput | QuietOutput | JSONOutput JSONOptions data JSONOptions = JSONOptions { jsonProgress :: Bool + , jsonErrorMessages :: Bool } deriving (Show) adjustOutputType :: OutputType -> OutputType -> OutputType adjustOutputType (JSONOutput old) (JSONOutput new) = JSONOutput $ JSONOptions { jsonProgress = jsonProgress old || jsonProgress new + , jsonErrorMessages = jsonErrorMessages old || jsonErrorMessages new } adjustOutputType _old new = new |