[project @ 1999-01-27 14:51:14 by simonpj]

[ghc-hetmet.git] / ghc / compiler / types / TyCon.lhs

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index fb969bc..c3c95b8 100644 (file)
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -19,6 +19,8 @@ module TyCon(
        mkKindCon,
        mkSuperKindCon,
 
+       setTyConName,
+
        tyConKind,
        tyConUnique,
        tyConTyVars,
@@ -224,6 +226,8 @@ mkSynTyCon name kind arity tyvars rhs
        tyConTyVars = tyvars,
        synTyConDefn = rhs
     }
+
+setTyConName tc name = tc {tyConName = name, tyConUnique = nameUnique name}
 \end{code}
 
 \begin{code}