From 1996630b09fafd699ae45bee15e4dfa1d20a97ce Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 1 Jul 2024 16:10:46 +0100
Subject: [PATCH] imp: cli: --debug: demote large CliOpts output to level 2

---
 hledger/Hledger/Cli.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli.hs b/hledger/Hledger/Cli.hs
index 424745251..181a63c8e 100644
--- a/hledger/Hledger/Cli.hs
+++ b/hledger/Hledger/Cli.hs
@@ -192,9 +192,10 @@ main = withGhcDebug' $ do
 
   -- let's go!
   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
     dbgIO1 = ptraceAtIO 1
+    dbgIO2 = ptraceAtIO 2
   dbgIO "running" prognameandversion
 
   starttime <- getPOSIXTime
@@ -328,7 +329,7 @@ main = withGhcDebug' $ do
 
       -- validate opts/args more and convert to CliOpts
       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 "interval from opts" (interval_ . _rsReportOpts $ reportspec_ opts)
       dbgIO "query from opts & args" (_rsQuery $ reportspec_ opts)