[project @ 2005-11-25 14:03:00 by simonmar]

[ghc-hetmet.git] / ghc / compiler / simplCore / LiberateCase.lhs

diff --git a/ghc/compiler/simplCore/LiberateCase.lhs b/ghc/compiler/simplCore/LiberateCase.lhs
index a5aab26..c29a5b9 100644 (file)
--- a/ghc/compiler/simplCore/LiberateCase.lhs
+++ b/ghc/compiler/simplCore/LiberateCase.lhs
@@ -8,7 +8,8 @@ module LiberateCase ( liberateCase ) where
 
 #include "HsVersions.h"
 
-import CmdLineOpts     ( DynFlags, DynFlag(..), opt_LiberateCaseThreshold )
+import DynFlags                ( DynFlags, DynFlag(..) )
+import StaticFlags     ( opt_LiberateCaseThreshold )
 import CoreLint                ( showPass, endPass )
 import CoreSyn
 import CoreUnfold      ( couldBeSmallEnoughToInline )
@@ -191,7 +192,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: