X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscTypes.lhs;h=8284e2f73458801c661ab0e454c4b5507e21fba8;hb=9fc29e6eedbb0cee53960a0664d99c0b2c33f3d7;hp=e2a83c69c95d11990fc9824a66b59268fb6ffda8;hpb=275085675cabfdf5d3298d436aa1cf3aaf3291ca;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscTypes.lhs b/ghc/compiler/main/HscTypes.lhs
index e2a83c6..8284e2f 100644
--- a/ghc/compiler/main/HscTypes.lhs
+++ b/ghc/compiler/main/HscTypes.lhs
@@ -460,8 +460,7 @@ data PersistentRenamerState
   = PRS { prsOrig  :: OrigNameEnv,
 	  prsDecls :: DeclsMap,
 	  prsInsts :: IfaceInsts,
-	  prsRules :: IfaceRules,
-	  prsNS    :: UniqSupply
+	  prsRules :: IfaceRules
     }
 \end{code}
 
@@ -479,7 +478,9 @@ we just store junk.  Then when we find the binding site, we fix it up.
 
 \begin{code}
 data OrigNameEnv
- = Orig { origNames  :: OrigNameNameEnv,
+ = Orig { origNS     :: UniqSupply,
+		-- Supply of uniques
+	  origNames  :: OrigNameNameEnv,
 		-- Ensures that one original name gets one unique
 	  origIParam :: OrigNameIParamEnv
 		-- Ensures that one implicit parameter name gets one unique