make noMessages disable closing of json object in --json mode

This allows things like Command.Find to use noMessages and generate their
own complete json objects. Previouly, Command.Find managed that only via a
hack, which wasn't compatable with batch mode.

Only Command.Find, Command.Smudge, and Commange.Status use noMessages
currently, and none except for Command.Find are impacted by this change.

Fixes find --json --batch output

CmdLine/Action.hs

@@ -124,7 +124,7 @@ includeCommandAction a = account =<< tryIO (callCommandAction a)
 	account (Right False) = incerr
 	account (Left err) = do
 		toplevelWarning True (show err)
-		showEndFail
+		implicitMessage showEndFail
 		incerr
 	incerr = do
 		Annex.incError
@@ -146,8 +146,8 @@ callCommandAction' = start
 	cleanup = stage $ status
 	stage = (=<<)
 	skip = return Nothing
-	failure = showEndFail >> return (Just False)
-	status r = showEndResult r >> return (Just r)
+	failure = implicitMessage showEndFail >> return (Just False)
+	status r = implicitMessage (showEndResult r) >> return (Just r)
 
 {- Do concurrent output when that has been requested. -}
 allowConcurrentOutput :: Annex a -> Annex a