Fix find --json to output json once more.

Reversion from commit 436f10771, CustomOutput was forcing quiet output
which overrode the json setting.

find happened to be the only command that uses CustomOutput and also
outputs json. (metadata --get does also use CustomOutput and --json does not
enable json output for that, which may be an oversight, but was already the
behavior before this regression.)

CHANGELOG

@@ -1,3 +1,9 @@
+git-annex (7.20190627) UNRELEASED; urgency=medium
+
+  * Fix find --json to output json once more.
+
+ -- Joey Hess <id@joeyh.name>  Fri, 05 Jul 2019 09:49:52 -0400
+
 git-annex (7.20190626) upstream; urgency=medium
 
   * get, move, copy, sync: When -J or annex.jobs has enabled concurrency,

Messages.hs

@@ -99,7 +99,10 @@ showStartMessage (StartUsualMessages command ai) = do
 		_ -> noop
 	showStartMessage (StartMessage command ai)
 showStartMessage (StartNoMessage _) = noop
-showStartMessage (CustomOutput _) = Annex.setOutput QuietOutput
+showStartMessage (CustomOutput _) =
+	outputType <$> Annex.getState Annex.output >>= \case
+		NormalOutput -> Annex.setOutput QuietOutput
+		_ -> noop
 
 -- Only show end result if the StartMessage is one that gets displayed.
 showEndMessage :: StartMessage -> Bool -> Annex ()

doc/bugs/Regression_in___96__find_--json__96___output.mdwn

@@ -30,3 +30,5 @@ show similar issues and `find` is just the first I noticed.
 GNU/Linux, building git-annex with Guix
 
 [[!meta author=kyle]]
+
+> [[fixed|done]] --[[Joey]]