From: sof <unknown>
Date: Wed, 30 Sep 1998 07:54:48 +0000 (+0000)
Subject: [project @ 1998-09-30 07:54:48 by sof]
X-Git-Tag: Approx_2487_patches~256
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a944f9a38a1e7c1eea66e3dc878bbb9bb0d5894f;p=ghc-hetmet.git

[project @ 1998-09-30 07:54:48 by sof]
new helper: openAlphaTyVars
---

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]