diff options
Diffstat (limited to 'Messages.hs')
-rw-r--r-- | Messages.hs | 7 |
1 files changed, 7 insertions, 0 deletions
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 |