From 7ac44206f2acda5721c88e4f5dd1f09384f9f05e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 13 Aug 2015 15:05:39 -0400 Subject: --debug is passed along to git-annex-shell when git-annex is in debug mode. --- Messages.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'Messages.hs') diff --git a/Messages.hs b/Messages.hs index c6d033402..026fca51e 100644 --- a/Messages.hs +++ b/Messages.hs @@ -32,6 +32,7 @@ module Messages ( setupConsole, enableDebugOutput, disableDebugOutput, + debugEnabled, commandProgressDisabled, ) where @@ -191,6 +192,12 @@ enableDebugOutput = updateGlobalLogger rootLoggerName $ setLevel DEBUG disableDebugOutput :: IO () disableDebugOutput = updateGlobalLogger rootLoggerName $ setLevel NOTICE +{- Checks if debugging is enabled. -} +debugEnabled :: IO Bool +debugEnabled = do + l <- getRootLogger + return $ getLevel l <= Just DEBUG + {- Should commands that normally output progress messages have that - output disabled? -} commandProgressDisabled :: Annex Bool -- cgit v1.2.3