diff options
| -rw-r--r-- | ghc/compiler/simplCore/LiberateCase.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/simplCore/LiberateCase.lhs b/ghc/compiler/simplCore/LiberateCase.lhs index a5aab26fdb..20c012d18c 100644 --- a/ghc/compiler/simplCore/LiberateCase.lhs +++ b/ghc/compiler/simplCore/LiberateCase.lhs @@ -191,7 +191,7 @@ libCaseBind env (Rec pairs) -- processing the rhs with an *un-extended* environment, so -- that the same process doesn't occur for ever! -- - extended_env = addRecBinds env [ (setIdNotExported binder, libCase env_body rhs) + extended_env = addRecBinds env [ (adjust binder, libCase env_body rhs) | (binder, rhs) <- pairs ] -- Two subtle things: |