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

dbgAt

Browse Source
This commit is contained in:
Simon Michael 2014-04-02 04:47:32 -07:00
parent 784e9eff8a
commit a05810f8e0
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -425,6 +425,11 @@ debugLevel = case snd $ break (=="--debug") args of
dbg :: Show a => String -> a -> a dbg :: Show a => String -> a -> a
dbg = dbgppshow 1 dbg = dbgppshow 1
-- | Print a message and a showable value to the console if the global
-- debug level is at or above the specified level. Uses unsafePerformIO.
dbgAt :: Show a => Int -> String -> a -> a
dbgAt lvl = dbgppshow lvl
-- | 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).