X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FSaAbsInt.lhs;h=a6a79ec16696dd11c6cbfa5a3cd205664d071562;hb=853e20a3eb86137cdb8accf69c6caa9db83a3d34;hp=48bb957395afc70426ed17269e68db6343c25d30;hpb=b43da53d447a328d5be4f175dbbebad9abf690de;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index 48bb957..a6a79ec 100644
--- a/ghc/compiler/stranal/SaAbsInt.lhs
+++ b/ghc/compiler/stranal/SaAbsInt.lhs
@@ -20,10 +20,10 @@ module SaAbsInt (
 
 #include "HsVersions.h"
 
-import CmdLineOpts	( opt_AllStrict, opt_NumbersStrict )
+import StaticFlags	( opt_AllStrict, opt_NumbersStrict )
 import CoreSyn
 import CoreUnfold	( maybeUnfoldingTemplate )
-import Id		( Id, idType, idUnfolding, isDataConId_maybe,
+import Id		( Id, idType, idUnfolding, isDataConWorkId_maybe,
 			  idStrictness,
 			)
 import DataCon		( dataConTyCon, splitProductType_maybe, dataConRepArgTys )
@@ -353,7 +353,7 @@ evalAbsence other val = anyBot val
 
 absId anal var env
   = case (lookupAbsValEnv env var, 
-	  isDataConId_maybe var, 
+	  isDataConWorkId_maybe var, 
 	  idStrictness var, 
 	  maybeUnfoldingTemplate (idUnfolding var)) of