X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFloatIn.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FFloatIn.lhs;h=be854af217a4b75b21b937b097687b78e0499f2d;hb=9e93335020e64a811dbbb223e1727c76933a93ae;hp=f14a01189d000e4f1a455fec76be8e540fd2a907;hpb=dccacbf9dd82d82657f4885a91d3deb57ce22f53;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/FloatIn.lhs b/ghc/compiler/simplCore/FloatIn.lhs
index f14a011..be854af 100644
--- a/ghc/compiler/simplCore/FloatIn.lhs
+++ b/ghc/compiler/simplCore/FloatIn.lhs
@@ -25,7 +25,7 @@ import Id		( isOneShotLambda )
 import Var		( Id, idType, isTyVar )
 import Type		( isUnLiftedType )
 import VarSet
-import Util		( zipEqual, zipWithEqual )
+import Util		( zipEqual, zipWithEqual, count )
 import Outputable
 \end{code}
 
@@ -424,7 +424,7 @@ sepBindsByDropPoint is_case drop_pts floaters
 		--	  E -> ...not mentioning x...
 
 	  n_alts      = length used_in_flags
-	  n_used_alts = length [() | True <- used_in_flags]
+	  n_used_alts = count id used_in_flags -- returns number of Trues in list.
 
 	  can_push = n_used_alts == 1		-- Used in just one branch
 		   || (is_case && 		-- We are looking at case alternatives