From a944f9a38a1e7c1eea66e3dc878bbb9bb0d5894f Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 30 Sep 1998 07:54:48 +0000
Subject: [PATCH] [project @ 1998-09-30 07:54:48 by sof] new helper:
 openAlphaTyVars

---
 ghc/compiler/types/TyVar.lhs |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/types/TyVar.lhs b/ghc/compiler/types/TyVar.lhs
index e0d4178..512912b 100644
--- a/ghc/compiler/types/TyVar.lhs
+++ b/ghc/compiler/types/TyVar.lhs
@@ -8,7 +8,7 @@ module TyVar (
         setTyVarFlexi,
 	cloneTyVar, nameTyVar,
 
-	openAlphaTyVar,
+	openAlphaTyVar, openAlphaTyVars,
 	alphaTyVars, alphaTyVar, betaTyVar, gammaTyVar, deltaTyVar,
 
 	-- We also export "environments" keyed off of
@@ -97,6 +97,10 @@ Fixed collection of type variables
 	-- result type for "error", so that we can have (error Int# "Help")
 openAlphaTyVar = TyVar initTyVarUnique mkTypeKind Nothing unused
 
+openAlphaTyVars = 
+    [ TyVar u mkTypeKind Nothing unused
+    | u <- iterate incrUnique initTyVarUnique]
+
 alphaTyVars = [ TyVar u mkBoxedTypeKind Nothing unused
 	      | u <- iterate incrUnique initTyVarUnique]
 
-- 
1.7.10.4