simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-30 22:02:20 +03:00
Code Issues Projects Releases Wiki Activity

dbgAtM, monadic version of dbgAt

Browse Source
This commit is contained in:
Simon Michael 2014-04-02 09:30:59 -07:00
parent 21575ed47b
commit 577ff7902c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -430,6 +430,9 @@ dbg = dbgppshow 1
dbgAt :: Show a => Int -> String -> a -> a
dbgAt lvl = dbgppshow lvl
dbgAtM :: Show a => Int -> String -> a -> IO ()
dbgAtM lvl lbl x = dbgAt lvl lbl x `seq` return ()
-- | Print a showable value to the console, with a message, if the
-- debug level is at or above the specified level (uses
-- unsafePerformIO).