slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: debug logging: fix non-logging ptrace*IO, dbg*IO

Browse Source
This commit is contained in:
Simon Michael 2022-11-07 14:50:13 -10:00
parent 05aeedf6c9
commit 6d2687e67d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-lib/Hledger/Utils/Debug.hs
View File

@ -101,6 +101,7 @@ module Hledger.Utils.Debug (
,traceOrLog ,traceOrLog
,traceOrLogAt ,traceOrLogAt
,ptraceOrLogAt ,ptraceOrLogAt
,ptraceOrLogAtIO
,traceOrLogAtWith ,traceOrLogAtWith
-- * Pretty tracing/logging in pure code -- * Pretty tracing/logging in pure code
@ -304,7 +305,7 @@ ptraceLogAtIO :: (MonadIO m, Show a) => Int -> String -> a -> m ()
ptraceLogAtIO level label a = ptraceLogAtIO level label a =
if level > 0 && debugLevel < level if level > 0 && debugLevel < level
then return () then return ()
else return $ traceLog (labelledPretty False label a) () else traceLogIO (labelledPretty False label a)
-- Trace or log a string depending on shouldLog, -- Trace or log a string depending on shouldLog,
-- before returning the second argument. -- before returning the second argument.