simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-25 19:31:44 +03:00
Code Issues 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,
-- if the global debug level is at or above the specified level.
-- At level 0, always logs. Otherwise, uses unsafePerformIO.
-- XXX Can fail due to log file contention if called multiple times
-- ("*** Exception: debug.log: openFile: resource busy (file is locked)").
-- Tends to fail if called more than once, at least when built with -threaded
-- (Exception: debug.log: openFile: resource busy (file is locked)).
plogAt :: Show a => Int -> String -> a -> a
plogAt lvl
| lvl > 0 && debugLevel < lvl = flip const