[project @ 1998-03-20 11:44:30 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 f8c92bc..cb8b1a1 100644 (file)
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -233,7 +233,7 @@ mkVanillaId name ty info
        idInfo = info}
 
 mkIdWithNewUniq :: Id -> Unique -> Id
-mkIdWithNewUniq id uniq = id {idUnique = uniq}
+mkIdWithNewUniq id uniq = id {idUnique = uniq, idName = changeUnique (idName id) uniq}
 
 mkIdWithNewName :: Id -> Name -> Id
 mkIdWithNewName id new_name
@@ -562,7 +562,7 @@ getIdDemandInfo id = demandInfo (idInfo id)
 addIdDemandInfo :: Id -> DemandInfo -> Id
 addIdDemandInfo id@(Id {idInfo = info}) demand_info
   = id {idInfo = demand_info `setDemandInfo` info}
-\end{code}
+\end{code}p
 
 \begin{code}
 getIdUpdateInfo :: Id -> UpdateInfo