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

lib: comment

Browse Source
This commit is contained in:
Simon Michael 2018-10-17 13:11:00 -07:00
parent 74611a7be1
commit b5df5fb5f0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -199,8 +199,8 @@ plog = plogAt 0
-- | Log a message and a pretty-printed showable value to ./debug.log, -- | Log a message and a pretty-printed showable value to ./debug.log,
-- if the global debug level is at or above the specified level. -- if the global debug level is at or above the specified level.
-- At level 0, always logs. Otherwise, uses unsafePerformIO. -- At level 0, always logs. Otherwise, uses unsafePerformIO.
-- XXX Can fail due to log file contention if called multiple times -- Tends to fail if called more than once, at least when built with -threaded
-- ("*** Exception: debug.log: openFile: resource busy (file is locked)"). -- (Exception: debug.log: openFile: resource busy (file is locked)).
plogAt :: Show a => Int -> String -> a -> a plogAt :: Show a => Int -> String -> a -> a
plogAt lvl plogAt lvl
| lvl > 0 && debugLevel < lvl = flip const | lvl > 0 && debugLevel < lvl = flip const