X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreUtils.lhs;h=24d4d0292e1b8cd288e81d66d2248f30930da024;hb=00a259f5e3ceca206b388d02495799dc1e974bf5;hp=c431b2d993f672ea09c81a969958b475594e3e85;hpb=6921b9f3849183c6df7b1417d696783ad1c26bbe;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs
index c431b2d..24d4d02 100644
--- a/compiler/coreSyn/CoreUtils.lhs
+++ b/compiler/coreSyn/CoreUtils.lhs
@@ -46,6 +46,7 @@ import CoreFVs		( exprFreeVars )
 import PprCore		( pprCoreExpr )
 import Var		( Var, TyVar, CoVar, isCoVar, tyVarKind, mkCoVar, mkTyVar )
 import OccName          ( mkVarOccFS )
+import SrcLoc		( noSrcLoc )
 import VarSet		( unionVarSet )
 import VarEnv
 import Name		( hashName, mkSysTvName )
@@ -61,7 +62,8 @@ import DataCon		( DataCon, dataConRepArity, eqSpecPreds,
 import PrimOp		( PrimOp(..), primOpOkForSpeculation, primOpIsCheap )
 import Id		( Id, idType, globalIdDetails, idNewStrictness, 
 			  mkWildId, idArity, idName, idUnfolding, idInfo,
-			  isOneShotBndr, isStateHackType, isDataConWorkId_maybe, mkSysLocal,
+			  isOneShotBndr, isStateHackType, 
+			  isDataConWorkId_maybe, mkSysLocal, mkUserLocal,
 			  isDataConWorkId, isBottomingId, isDictId
 			)
 import IdInfo		( GlobalIdDetails(..), megaSeqIdInfo )