slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 :: Show a => Int -> String -> a -> a
dbgAt lvl = dbgppshow lvl 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 -- | Print a showable value to the console, with a message, if the
-- debug level is at or above the specified level (uses -- debug level is at or above the specified level (uses
-- unsafePerformIO). -- unsafePerformIO).