X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FLiberateCase.lhs;h=02a3fab567d6865ac1a8d3d784a0e64c58e0321f;hb=b1ab4b8a607addc4d097588db5761313c996a41f;hp=9b157340f60378dccb58347ea5ecbb2106088f66;hpb=96cb07b5940f98f35ac292e40d0129db5d3748ce;p=ghc-hetmet.git

diff --git a/compiler/simplCore/LiberateCase.lhs b/compiler/simplCore/LiberateCase.lhs
index 9b15734..02a3fab 100644
--- a/compiler/simplCore/LiberateCase.lhs
+++ b/compiler/simplCore/LiberateCase.lhs
@@ -23,7 +23,6 @@ import Coercion
 import TyCon
 import VarEnv
 import Name		( localiseName )
-import Outputable
 import Util             ( notNull )
 import Data.IORef	( readIORef )
 \end{code}
@@ -410,7 +409,7 @@ data LibCaseEnv
 
 initEnv :: DynFlags -> FamInstEnvs -> LibCaseEnv
 initEnv dflags fams
-  = LibCaseEnv { lc_size = libCaseThreshold dflags,
+  = LibCaseEnv { lc_size = specThreshold dflags,
 		 lc_lvl = 0,
 		 lc_lvl_env = emptyVarEnv, 
 		 lc_rec_env = emptyVarEnv,