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

imp: cli: --debug: demote large CliOpts output to level 2

Browse Source
This commit is contained in:
Simon Michael 2024-07-01 16:10:46 +01:00
parent 6af992bc3a
commit 1996630b09
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger/Hledger/Cli.hs
View File

@ -192,9 +192,10 @@ main = withGhcDebug' $ do
-- let's go! -- let's go!
let let
dbgIO, dbgIO1 :: Show a => String -> a -> IO () -- this signature is needed dbgIO, dbgIO1, dbgIO2 :: Show a => String -> a -> IO () -- this signature is needed
dbgIO = ptraceAtIO verboseDebugLevel dbgIO = ptraceAtIO verboseDebugLevel
dbgIO1 = ptraceAtIO 1 dbgIO1 = ptraceAtIO 1
dbgIO2 = ptraceAtIO 2
dbgIO "running" prognameandversion dbgIO "running" prognameandversion
starttime <- getPOSIXTime starttime <- getPOSIXTime
@ -328,7 +329,7 @@ main = withGhcDebug' $ do
-- validate opts/args more and convert to CliOpts -- validate opts/args more and convert to CliOpts
opts <- rawOptsToCliOpts rawopts >>= \opts0 -> return opts0{progstarttime_=starttime} opts <- rawOptsToCliOpts rawopts >>= \opts0 -> return opts0{progstarttime_=starttime}
dbgIO "processed opts" opts dbgIO2 "processed opts" opts
dbgIO "period from opts" (period_ . _rsReportOpts $ reportspec_ opts) dbgIO "period from opts" (period_ . _rsReportOpts $ reportspec_ opts)
dbgIO "interval from opts" (interval_ . _rsReportOpts $ reportspec_ opts) dbgIO "interval from opts" (interval_ . _rsReportOpts $ reportspec_ opts)
dbgIO "query from opts & args" (_rsQuery $ reportspec_ opts) dbgIO "query from opts & args" (_rsQuery $ reportspec_ opts)