X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FFloatOut.lhs;h=fba88e77dc38ab73a775d2365b0d8f9bb59bb9fa;hb=e95ee1f718c6915c478005aad8af81705357d6ab;hp=579565f5a62e5c429d720c34f249a9da62f3074d;hpb=d49e85929347bab41b0c411d1009500361195868;p=ghc-hetmet.git

diff --git a/compiler/simplCore/FloatOut.lhs b/compiler/simplCore/FloatOut.lhs
index 579565f..fba88e7 100644
--- a/compiler/simplCore/FloatOut.lhs
+++ b/compiler/simplCore/FloatOut.lhs
@@ -242,7 +242,7 @@ floatExpr _ lam@(Lam _ _)
 	-- going to escape a value lambda.
 	-- In particular, for one-shot lambdas we don't float things
 	-- out; we get no saving by so doing.
-	partition_fn | all isTyVar bndrs = partitionByLevel
+	partition_fn | all isTyCoVar bndrs = partitionByLevel
 		     | otherwise	 = partitionByMajorLevel
     in
     case (floatExpr (last lvls) body) of { (fs, floats, body') ->