From: simonmar <unknown>
Date: Tue, 12 Jul 2005 12:56:36 +0000 (+0000)
Subject: [project @ 2005-07-12 12:56:36 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~367
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cc1c19abb660375b2ce73d8ac0fc758956a28644;p=ghc-hetmet.git

[project @ 2005-07-12 12:56:36 by simonmar]
export some more bits
---

diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs
index 811f1cb..77195f3 100644
--- a/ghc/compiler/main/GHC.hs
+++ b/ghc/compiler/main/GHC.hs
@@ -98,10 +98,14 @@ module GHC (
 
 	-- ** Type constructors
 	TyCon, 
-	tyConTyVars, tyConDataCons,
-	isClassTyCon, isSynTyCon, isNewTyCon,
+	tyConTyVars, tyConDataCons, tyConArity,
+	isClassTyCon, isSynTyCon, isNewTyCon, isPrimTyCon,
 	getSynTyConDefn,
 
+	-- ** Type variables
+	TyVar,
+	alphaTyVars,
+
 	-- ** Data constructors
 	DataCon,
 	dataConSig, dataConType, dataConTyCon, dataConFieldLabels,
@@ -186,7 +190,10 @@ import Id		( Id, idType, isImplicitId, isDeadBinder,
                           isPrimOpId, isFCallId, isClassOpId_maybe,
                           isDataConWorkId, idDataCon,
                           isBottomingId )
+import Var		( TyVar )
+import TysPrim		( alphaTyVars )
 import TyCon		( TyCon, isClassTyCon, isSynTyCon, isNewTyCon,
+			  isPrimTyCon, tyConArity,
 			  tyConTyVars, tyConDataCons, getSynTyConDefn )
 import Class		( Class, classSCTheta, classTvsFds, classMethods )
 import FunDeps		( pprFundeps )