X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplEnv.lhs;h=3832f547de2c019d184976fd877547946e263dac;hb=b024f2afa81fd67bd4f893f2de5ddf0bf2246150;hp=245f313e8f874b4f59f60e26f2dd5ca2a26ba5cc;hpb=dbcff8ab57f64bcc6abff68448fc33691410266e;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SimplEnv.lhs b/compiler/simplCore/SimplEnv.lhs
index 245f313..3832f54 100644
--- a/compiler/simplCore/SimplEnv.lhs
+++ b/compiler/simplCore/SimplEnv.lhs
@@ -9,8 +9,6 @@ module SimplEnv (
 	OutId, OutTyVar, OutBind, OutExpr, OutAlt, OutArg, OutType, OutBndr,
         InCoercion, OutCoercion,
 
-	isStrictBndr,
-
 	-- The simplifier mode
 	setMode, getMode, 
 
@@ -92,13 +90,6 @@ type OutAlt	 = CoreAlt
 type OutArg	 = CoreArg
 \end{code}
 
-\begin{code}
-isStrictBndr :: Id -> Bool
-isStrictBndr bndr
-  = ASSERT2( isId bndr, ppr bndr )
-    isStrictDmd (idNewDemandInfo bndr) || isStrictType (idType bndr)
-\end{code}
-
 %************************************************************************
 %*									*
 \subsubsection{The @SimplEnv@ type}
@@ -364,7 +355,7 @@ andFF FltLifted  flt	    = flt
 classifyFF :: CoreBind -> FloatFlag
 classifyFF (Rec _) = FltLifted
 classifyFF (NonRec bndr rhs) 
-  | not (isStrictBndr bndr)  = FltLifted
+  | not (isStrictId bndr)    = FltLifted
   | exprOkForSpeculation rhs = FltOkSpec
   | otherwise		     = FltCareful