X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FFreeVars.lhs;h=979fd670f3f25ba1b2323e140e0a294b636039c7;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=e6987a826f0f8108a6d218f1d642b50311177c73;hpb=f01a8e8c9c53bfb5ab3393ed3457ebf25390efa1;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/FreeVars.lhs b/ghc/compiler/coreSyn/FreeVars.lhs
index e6987a8..979fd67 100644
--- a/ghc/compiler/coreSyn/FreeVars.lhs
+++ b/ghc/compiler/coreSyn/FreeVars.lhs
@@ -13,14 +13,14 @@ module FreeVars (
 	addTopBindsFVs,
 
 	freeVarsOf, freeTyVarsOf,
-	FVCoreExpr(..), FVCoreBinding(..),
+	SYN_IE(FVCoreExpr), SYN_IE(FVCoreBinding),
 
-	CoreExprWithFVs(..),		-- For the above functions
-	AnnCoreExpr(..),		-- Dito
+	SYN_IE(CoreExprWithFVs),		-- For the above functions
+	SYN_IE(AnnCoreExpr),		-- Dito
 	FVInfo(..), LeakInfo(..)
     ) where
 
-import Ubiq{-uitous-}
+IMP_Ubiq(){-uitous-}
 
 import AnnCoreSyn	-- output
 
@@ -28,17 +28,17 @@ import CoreSyn
 import Id		( idType, getIdArity, isBottomingId,
 			  emptyIdSet, unitIdSet, mkIdSet,
 			  elementOfIdSet, minusIdSet, unionManyIdSets,
-			  IdSet(..)
+			  SYN_IE(IdSet)
 			)
 import IdInfo		( arityMaybe )
 import PrimOp		( PrimOp(..) )
 import Type		( tyVarsOfType )
 import TyVar		( emptyTyVarSet, unitTyVarSet, minusTyVarSet,
 			  intersectTyVarSets,
-			  TyVarSet(..)
+			  SYN_IE(TyVarSet)
 			)
 import UniqSet		( unionUniqSets )
-import Usage		( UVar(..) )
+import Usage		( SYN_IE(UVar) )
 import Util		( panic, assertPanic )
 \end{code}