[Git][ghc/ghc][wip/ghc-9.8] Fix breakpoint

[Ben Gamari (@bgamari)]

Ben Gamari pushed to branch wip/ghc-9.8 at Glasgow Haskell Compiler / GHC


Commits:
e8ed0c85 by Ben Gamari at 2023-07-10T11:20:25-04:00
Fix breakpoint

- - - - -


1 changed file:

- compiler/GHC/Core/Opt/SpecConstr.hs


Changes:

=====================================
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 at ProfNote {} -> pure (nullUsage, t)
   t at HpcTick {} -> pure (nullUsage, t)
   t at SourceNote {} -> pure (nullUsage, t)



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e8ed0c85072b8f5aad730506e79f41c66705c4fe
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/20230710/3a50b4c4/attachment.html>