From 76668b6e9ff3bd0817e2dee7cd96ce95f787baec Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Mon, 10 Jul 2023 11:20:25 -0400
Subject: [PATCH] Fix breakpoint
---
compiler/GHC/Core/Opt/SpecConstr.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/compiler/GHC/Core/Opt/SpecConstr.hs b/compiler/GHC/Core/Opt/SpecConstr.hs
index 6efec52b23c..f369bf5fc7b 100644
--- a/compiler/GHC/Core/Opt/SpecConstr.hs
+++ b/compiler/GHC/Core/Opt/SpecConstr.hs
@@ -1543,9 +1543,9 @@ scExpr' env (Case scrut b ty alts)
-- 'GHC.Opt.Specialise.specTickish'.
scTickish :: ScEnv -> CoreTickish -> UniqSM (ScUsage, CoreTickish)
scTickish env = \case
- Breakpoint ext i fv modl -> do
+ Breakpoint ext i fv -> do
(usg, fv') <- unzip <$> mapM (\ v -> scExpr env (Var v)) fv
- pure (combineUsages usg, Breakpoint ext i [v | Var v <- fv'] modl)
+ pure (combineUsages usg, Breakpoint ext i [v | Var v <- fv'])
t@ProfNote {} -> pure (nullUsage, t)
t@HpcTick {} -> pure (nullUsage, t)
t@SourceNote {} -> pure (nullUsage, t)
--
GitLab