GitLab

Simon Peyton Jones pushed to branch wip/T24464 at Glasgow Haskell Compiler / GHC

Commits:

2dd48b99
by Simon Peyton Jones at 2026-01-29T09:37:04+00:00
```
Fix buglet
```

1 changed file:

compiler/GHC/HsToCore/Pmc.hs

Changes:

compiler/GHC/HsToCore/Pmc.hs

@@ -97,7 +97,7 @@ dontDoPmc thing_inside = updPmNablas NoPmc thing_inside
  whenDoingPmc :: a -> (Nablas -> DsM a) -> DsM a
  whenDoingPmc no_pmc thing_inside
 -  = do { ldi_nablas <- getPmNablas
 +  = do { ldi_nablas <- getLdiNablas
         ; case ldi_nablas of
              NoPmc      -> return no_pmc
              Ldi nablas -> thing_inside nablas }