X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplCore%2FLiberateCase.lhs;h=01e410dfb76b2af58b6fdd39e89748418f069547;hp=9b157340f60378dccb58347ea5ecbb2106088f66;hb=cac2aca1e1874e936f3ef15ca2a81a32c7863750;hpb=e9f23b4cc3df781f2fc84b48716a7779ecc8ab06

diff --git a/compiler/simplCore/LiberateCase.lhs b/compiler/simplCore/LiberateCase.lhs
index 9b15734..01e410d 100644
--- a/compiler/simplCore/LiberateCase.lhs
+++ b/compiler/simplCore/LiberateCase.lhs
@@ -410,7 +410,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,