From 5e3c79ebe44f03f2ac81273c5399971fd580b33d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 29 Apr 1998 09:30:21 +0000
Subject: [PATCH] [project @ 1998-04-29 09:30:21 by sof] Removed
 tyVarTemplates (unused)

---
 ghc/compiler/specialise/Specialise.lhs |   10 ----------
 1 file changed, 10 deletions(-)

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
-- 
1.7.10.4