[Git][ghc/ghc][master] Fix HasCallStack leftovers from !12514 / #24726

[Marge Bot (@marge-bot)]

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
52d62e2a by Sylvain Henry at 2024-05-24T07:53:57-04:00
Fix HasCallStack leftovers from !12514 / #24726

- - - - -


1 changed file:

- compiler/GHC/Core/SimpleOpt.hs


Changes:

=====================================
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@(_:_)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/52d62e2abb81653ae759b24acf7f98e47d46be58

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/52d62e2abb81653ae759b24acf7f98e47d46be58
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240524/bfa2a9ac/attachment-0001.html>