From 52d62e2abb81653ae759b24acf7f98e47d46be58 Mon Sep 17 00:00:00 2001
From: Sylvain Henry <sylvain@haskus.fr>
Date: Thu, 23 May 2024 16:37:28 +0200
Subject: [PATCH] Fix HasCallStack leftovers from !12514 / #24726
---
compiler/GHC/Core/SimpleOpt.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/compiler/GHC/Core/SimpleOpt.hs b/compiler/GHC/Core/SimpleOpt.hs
index 4223a73d5b9..7bc385d1202 100644
--- a/compiler/GHC/Core/SimpleOpt.hs
+++ b/compiler/GHC/Core/SimpleOpt.hs
@@ -228,7 +228,7 @@ enterRecGroupRHSs env bndrs k
(env', r) = k env{soe_rec_ids = extendUnVarSetList bndrs (soe_rec_ids env)}
---------------
-simple_opt_clo :: HasCallStack
+simple_opt_clo :: HasDebugCallStack
=> InScopeSet
-> SimpleClo
-> OutExpr
@@ -398,7 +398,7 @@ simple_app env (Let bind body) args
simple_app env e as
= finish_app env (simple_opt_expr env e) as
-finish_app :: HasCallStack
+finish_app :: HasDebugCallStack
=> SimpleOptEnv -> OutExpr -> [SimpleClo] -> OutExpr
-- See Note [Eliminate casts in function position]
finish_app env (Cast (Lam x e) co) as@(_:_)
--
GitLab