From: sof <unknown>
Date: Wed, 29 Apr 1998 09:30:21 +0000 (+0000)
Subject: [project @ 1998-04-29 09:30:21 by sof]
X-Git-Tag: Approx_2487_patches~763
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5e3c79ebe44f03f2ac81273c5399971fd580b33d;p=ghc-hetmet.git

[project @ 1998-04-29 09:30:21 by sof]
Removed tyVarTemplates (unused)
---

diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs
index b949001..48ffd7f 100644
--- a/ghc/compiler/specialise/Specialise.lhs
+++ b/ghc/compiler/specialise/Specialise.lhs
@@ -1083,16 +1083,6 @@ specUDs tv_env_list dict_env_list (dbs, calls)
 %************************************************************************
 
 \begin{code}
-tyVarTemplates :: [TyVar]
-tyVarTemplates = map mk [1..]
-  where
-    mk i = mkTyVar (mkSysLocalName uniq occ noSrcLoc) mkBoxedTypeKind
-	 where
-	   uniq = mkAlphaTyVarUnique i
-	   occ  = _PK_ ("$t" ++ show i)
-\end{code}
-
-\begin{code}
 lookupId:: IdEnv Id -> Id -> Id
 lookupId env id = case lookupIdEnv env id of
 			Nothing  -> id