simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-18 17:57:11 +03:00
Code Issues 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
,traceOrLogAt
,ptraceOrLogAt
,ptraceOrLogAtIO
,traceOrLogAtWith
-- * Pretty tracing/logging in pure code
@ -304,7 +305,7 @@ ptraceLogAtIO :: (MonadIO m, Show a) => Int -> String -> a -> m ()
ptraceLogAtIO level label a =
if level > 0 && debugLevel < level
then return ()
else return $ traceLog (labelledPretty False label a) ()
else traceLogIO (labelledPretty False label a)
-- Trace or log a string depending on shouldLog,
-- before returning the second argument.