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
This commit is contained in:
parent
846384fc3a
commit
473d66132d
2 changed files with 12 additions and 7 deletions
|
@ -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) $
|
||||
liftIO $ Utility.Debug.fastDebug (Annex.debugselector rd) src msg
|
||||
fastDebug' 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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue