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

dbgtrace, does a trace if --debug was used

Browse Source
This commit is contained in:
Simon Michael 2014-05-09 17:52:23 -07:00
parent 18716f2908
commit 6871c4cce5
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -453,6 +453,13 @@ dbgAt lvl = dbgppshow lvl
dbgAtM :: Show a => Int -> String -> a -> IO () dbgAtM :: Show a => Int -> String -> a -> IO ()
dbgAtM lvl lbl x = dbgAt lvl lbl x `seq` return () dbgAtM lvl lbl x = dbgAt lvl lbl x `seq` return ()
-- | Print this string to the console before evaluating the expression,
-- if the global debug level is non-zero. Uses unsafePerformIO.
dbgtrace :: String -> a -> a
dbgtrace
| debugLevel > 0 = trace
| otherwise = flip const
-- | 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).