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

dbgtrace takes a level parameter

Browse Source
This commit is contained in:
Simon Michael 2016-07-05 14:09:21 -07:00
parent 427953728e
commit 2d7a1904b4
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger-lib/Hledger/Utils/Debug.hs
View File

@ -181,11 +181,11 @@ tracePrettyAtIO lvl lbl x = liftIO $ tracePrettyAt lvl lbl x `seq` return ()
-- tracePrettyAtM lvl lbl x = tracePrettyAt lvl lbl x `seq` return x -- tracePrettyAtM lvl lbl x = tracePrettyAt lvl lbl x `seq` return x
-- | print this string to the console before evaluating the expression, -- | print this string to the console before evaluating the expression,
-- if the global debug level is non-zero. Uses unsafePerformIO. -- if the global debug level is at or above the specified level. Uses unsafePerformIO.
dbgtrace :: String -> a -> a dbgtrace :: Int -> String -> a -> a
dbgtrace dbgtrace level
| debugLevel > 0 = trace | debugLevel >= level = trace
| otherwise = flip const | 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