X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FOccurAnal.lhs;h=fe035f3a5135d94ca579adb5209e892c48a90300;hb=42b63073fb5e71fcd539ab80289cf6cf2a5b9641;hp=02fe904cf37bad34725ecb0b4ef775921758f87d;hpb=87bfa396ca8cea3296e8a715766062dc4d2c1d9b;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index 02fe904..fe035f3 100644
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -20,7 +20,7 @@ module OccurAnal (
 import CoreSyn
 import CoreFVs		( idRuleVars )
 import CoreUtils	( exprIsTrivial )
-import Id		( isDataConId, isOneShotLambda, setOneShotLambda, 
+import Id		( isDataConWorkId, isOneShotLambda, setOneShotLambda, 
 			  idOccInfo, setIdOccInfo,
 			  isExportedId, modifyIdInfo, idInfo, idArity,
 			  idSpecialisation, isLocalId,
@@ -704,7 +704,7 @@ occAnalApp env (Var fun, args) is_rhs
 	-- This is the *whole point* of the isRhsEnv predicate
         final_args_uds
 		| isRhsEnv env,
-		  isDataConId fun || valArgCount args < idArity fun
+		  isDataConWorkId fun || valArgCount args < idArity fun
 		= mapVarEnv markMany args_uds
 		| otherwise = args_uds
     in