summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-09-09 12:57:42 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-09-09 12:57:42 -0400
commitcac7297784a4eb953f0d6108d7e67e97be9285ad (patch)
treeca0098b875209945e15de2f63f52463487eb5e43 /Command
parent70ad04b5fc21d39bdae85b08ec948359a28021e6 (diff)
disentangle concurrency and message type
This makes -Jn work with --json and --quiet, where before setting -Jn disabled those options. Concurrent json output is currently a mess though since threads output chunks over top of one-another.
Diffstat (limited to 'Command')
-rw-r--r--Command/MetaData.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/MetaData.hs b/Command/MetaData.hs
index e3cf921cb..bf71f7b4f 100644
--- a/Command/MetaData.hs
+++ b/Command/MetaData.hs
@@ -78,7 +78,7 @@ seek o = do
(startKeys now o)
(seeker $ whenAnnexed $ start now o)
(forFiles o)
- Batch -> withOutputType $ \ot -> case ot of
+ Batch -> withMessageState $ \s -> case outputType s of
JSONOutput -> batchInput parseJSONInput $
commandAction . startBatch now
_ -> error "--batch is currently only supported in --json mode"