[project @ 1998-04-07 16:40:08 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Id.lhs

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index cb8b1a1..e9694d4 100644 (file)
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -112,7 +112,7 @@ import CmdLineOpts      ( opt_PprStyle_All )
 import Bag
 import IdInfo
 import Name            ( nameUnique, isLocalName, mkSysLocalName,
-                         isWiredInName, setNameVisibility,
+                         isWiredInName, setNameVisibility, changeUnique,
                          ExportFlag(..), Provenance,
                          OccName(..), Name, Module,
                          NamedThing(..)
@@ -251,10 +251,10 @@ instantiated before use.
 \begin{code}
 mkTemplateLocals :: [Type] -> [Id]
 mkTemplateLocals tys
-  = zipWith mk (getBuiltinUniques (length tys)) tys
+  = zipWith3 mk (getBuiltinUniques (length tys)) tys [1..]
   where
-    mk uniq ty = mkVanillaId (mkSysLocalName uniq SLIT("tpl") mkBuiltinSrcLoc)
-                            ty noIdInfo
+    mk uniq ty n = mkVanillaId (mkSysLocalName uniq (_PK_ ("x"++show n)) mkBuiltinSrcLoc)
+                              ty noIdInfo
 \end{code}