X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMkIface.lhs;h=fd6d8c89bc91bd7f7fb9c924f85d3d3730a5ea20;hb=72a9e0e26358e02dec63453d55fbc24a6f13f789;hp=e3648e723cf17cca8137cce28d2b772630401ca7;hpb=a7c7caa897c369236cbda35923ed7d9a4e77468f;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index e3648e7..fd6d8c8 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -42,7 +42,7 @@ import IdInfo		( IdInfo, StrictnessInfo, ArityInfo, InlinePragInfo(..), inlinePr
 			)
 import CoreSyn		( CoreExpr, CoreBinding, GenCoreExpr, GenCoreBinding(..) )
 import CoreUnfold	( calcUnfoldingGuidance, UnfoldingGuidance(..), Unfolding )
-import FreeVars		( addExprFVs )
+import FreeVars		( exprFreeVars )
 import Name		( isLocallyDefined, isWiredInName, modAndOcc, nameModule, pprOccName,
 			  OccName, occNameString, nameOccName, nameString, isExported,
 			  Name {-instance NamedThing-}, Provenance, NamedThing(..)
@@ -346,10 +346,9 @@ ifaceId get_idinfo needed_ids is_rec id rhs
 
     find_fvs expr = free_vars
 		  where
-		    (_,free_vars) = addExprFVs interesting emptyIdSet expr
-		    interesting bound id = isLocallyDefined id &&
-				           not (id `elementOfIdSet` bound) &&
-					   not (omitIfaceSigForId id)
+		    free_vars = exprFreeVars interesting expr
+		    interesting id = isLocallyDefined id &&
+				     not (omitIfaceSigForId id)
 \end{code}
 
 \begin{code}