From b6a5687a38317d1e63443f6e0733a030d0137302 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 19 Oct 2024 18:33:58 -1000
Subject: [PATCH] imp: cli, web: disable ghc 9.10+'s stack traces here too

Starting to see them also from hledger now.
---
 hledger-web/Hledger/Web/Main.hs | 3 +--
 hledger/Hledger/Cli.hs          | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/hledger-web/Hledger/Web/Main.hs b/hledger-web/Hledger/Web/Main.hs
index 6aac7e1d1..bd9588e2a 100644
--- a/hledger-web/Hledger/Web/Main.hs
+++ b/hledger-web/Hledger/Web/Main.hs
@@ -55,8 +55,7 @@ hledgerWebMain = withGhcDebug' $ do
 
 #if MIN_VERSION_base(4,20,0)
   -- Control ghc 9.10+'s stack traces.
-  -- hledger-web isn't showing many yet; leave this enabled for now.
-  setBacktraceMechanismState HasCallStackBacktrace True
+  setBacktraceMechanismState HasCallStackBacktrace False
 #endif
 
   -- try to encourage user's $PAGER to properly display ANSI (in command line help)
diff --git a/hledger/Hledger/Cli.hs b/hledger/Hledger/Cli.hs
index dc1b3a9b5..9654ad5ab 100644
--- a/hledger/Hledger/Cli.hs
+++ b/hledger/Hledger/Cli.hs
@@ -196,8 +196,7 @@ main = withGhcDebug' $ do
 
 #if MIN_VERSION_base(4,20,0)
   -- Control ghc 9.10+'s stack traces.
-  -- hledger isn't showing many yet; leave this enabled for now
-  setBacktraceMechanismState HasCallStackBacktrace True
+  setBacktraceMechanismState HasCallStackBacktrace False
     -- CostCentreBacktrace   - collect cost-centre stack backtraces (only available when built with profiling)
     -- HasCallStackBacktrace - collect HasCallStack backtraces
     -- ExecutionBacktrace    - collect backtraces from native execution stack unwinding