aboutsummaryrefslogtreecommitdiff
path: root/Messages.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-09-09 15:06:54 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-09-09 15:06:54 -0400
commit2408f5c6084aa04a09b36edcd264ce6bc7177c93 (patch)
treec745dce52ab6510948402eb1585b13718b39da3e /Messages.hs
parent8f8a17cf1855d809bf3655a3e4e9351b3850d3f2 (diff)
addurl, get: Added --json-progress option, which adds progress objects to the json output.
This doesn't work right when used with -J yet, and there is some really ugly hand-crafting of part of the json output.
Diffstat (limited to 'Messages.hs')
-rw-r--r--Messages.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Messages.hs b/Messages.hs
index 83f444a99..38b8ad890 100644
--- a/Messages.hs
+++ b/Messages.hs
@@ -213,7 +213,7 @@ commandProgressDisabled :: Annex Bool
commandProgressDisabled = withMessageState $ \s -> return $
case outputType s of
QuietOutput -> True
- JSONOutput -> True
+ JSONOutput _ -> True
NormalOutput -> concurrentOutputEnabled s
{- Use to show a message that is displayed implicitly, and so might be