X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnTypes.lhs;h=4ad1b0de833bfb39910c66c219d008b162e1611b;hp=f16e9a8c38d667a3220d66fdbea95ab1bfef3d73;hb=a73d6d950f6599d35f1e0aeb80d30112816a6928;hpb=10ffe4f78dc4bd53d5bc2da1deb8a67669ccb476

diff --git a/compiler/typecheck/TcRnTypes.lhs b/compiler/typecheck/TcRnTypes.lhs
index f16e9a8..4ad1b0d 100644
--- a/compiler/typecheck/TcRnTypes.lhs
+++ b/compiler/typecheck/TcRnTypes.lhs
@@ -59,13 +59,13 @@ import RdrName		( GlobalRdrEnv, LocalRdrEnv )
 import Name		( Name )
 import NameEnv
 import NameSet		( NameSet, unionNameSets, DefUses )
-import OccName		( OccEnv )
 import Var		( Id, TyVar )
 import VarEnv		( TidyEnv )
 import Module
 import SrcLoc		( SrcSpan, SrcLoc, Located, srcSpanStart )
 import VarSet		( IdSet )
 import ErrUtils		( Messages, Message )
+import UniqFM           ( UniqFM )
 import UniqSupply	( UniqSupply )
 import BasicTypes	( IPName )
 import Util		( thenCmp )
@@ -266,8 +266,8 @@ data IfLclEnv
 		--	.hi file, or GHCi state, or ext core
 		-- plus which bit is currently being examined
 
-	if_tv_env  :: OccEnv TyVar,	-- Nested tyvar bindings
-	if_id_env  :: OccEnv Id		-- Nested id binding
+	if_tv_env  :: UniqFM TyVar,	-- Nested tyvar bindings
+	if_id_env  :: UniqFM Id		-- Nested id binding
     }
 \end{code}