display explanations in --debug too

When --explain is not enabled. This can be useful debugging information
as well.

Sponsored-by: Dartmouth College's DANDI project

Annex/Debug.hs

@@ -1,6 +1,6 @@
 {- git-annex debugging
  -
- - Copyright 2021 Joey Hess <id@joeyh.name>
+ - Copyright 2021-2023 Joey Hess <id@joeyh.name>
  -
  - Licensed under the GNU AGPL version 3 or higher.
  -}
@@ -10,6 +10,7 @@ module Annex.Debug (
 	DebugSource(..),
 	debug,
 	fastDebug,
+	fastDebug',
 	configureDebug,
 	debugSelectorFromGitConfig,
 	parseDebugSelector,
@@ -27,5 +28,8 @@ import Annex.Debug.Utility
 fastDebug :: DebugSource -> String -> Annex.Annex ()
 fastDebug src msg = do
 	rd <- Annex.getRead id
-	when (Annex.debugenabled rd) $
+	fastDebug' rd src msg
-		liftIO $ Utility.Debug.fastDebug (Annex.debugselector rd) src msg
+
+fastDebug' :: Annex.AnnexRead -> DebugSource -> String -> Annex.Annex ()
+fastDebug' rd src msg = when (Annex.debugenabled rd) $
+	liftIO $ Utility.Debug.fastDebug (Annex.debugselector rd) src msg

Messages.hs

@@ -303,10 +303,11 @@ jsonOutputEnabled = withMessageState $ \s -> return $
 explain :: ActionItem -> Maybe StringContainingQuotedPath -> Annex ()
 explain ai (Just msg) = do
 	rd <- Annex.getRead id
-	when (Annex.explainenabled rd) $
+	let d = actionItemDesc ai
-		let d = actionItemDesc ai
+	let msg' = "[ " <> (if d == mempty then "" else (d <> " ")) <> msg <> " ]\n"
-		in outputMessage JSON.none id $
+	if Annex.explainenabled rd
-			"[ " <> (if d == mempty then "" else (d <> " ")) <> msg <> " ]\n"
+		then outputMessage JSON.none id msg'
+		else fastDebug' rd "Messages.explain" (decodeBS (noquote msg'))
 explain _ _ = return ()
 
 {- Prevents any concurrent console access while running an action, so