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