X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FOccurAnal.lhs;h=00fdebe234b3049f89743d13cb2e6028f3681a94;hb=b7d8dffaf1fefdf2f6b52fcf039a06843a28d586;hp=90a565f4ddd0782795ac95badfa4a84172cd0daa;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/simplCore/OccurAnal.lhs b/compiler/simplCore/OccurAnal.lhs
index 90a565f..00fdebe 100644
--- a/compiler/simplCore/OccurAnal.lhs
+++ b/compiler/simplCore/OccurAnal.lhs
@@ -22,10 +22,9 @@ import CoreFVs		( idRuleVars )
 import CoreUtils	( exprIsTrivial, isDefaultAlt )
 import Id		( isDataConWorkId, isOneShotBndr, setOneShotLambda, 
 			  idOccInfo, setIdOccInfo, isLocalId,
-			  isExportedId, idArity, idSpecialisation,
+			  isExportedId, idArity, idHasRules,
 			  idType, idUnique, Id
 			)
-import IdInfo		( isEmptySpecInfo )
 import BasicTypes	( OccInfo(..), isOneOcc, InterestingCxt )
 
 import VarSet
@@ -320,7 +319,7 @@ reOrderRec env (CyclicSCC (bind : binds))
 
 	| inlineCandidate bndr rhs = 2	-- Likely to be inlined
 
-	| not (isEmptySpecInfo (idSpecialisation bndr)) = 1
+	| idHasRules bndr = 1
 		-- Avoid things with specialisations; we'd like
 		-- to take advantage of them in the subsequent bindings