X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FTysPrim.lhs;h=c16c6b87b5f68195318e8ba82d8df3ec68bff42f;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=afc81b93b3fd113f8aff084e979359249ed16c7e;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/TysPrim.lhs b/ghc/compiler/prelude/TysPrim.lhs
index afc81b9..c16c6b8 100644
--- a/ghc/compiler/prelude/TysPrim.lhs
+++ b/ghc/compiler/prelude/TysPrim.lhs
@@ -20,14 +20,14 @@ import PrimRep		( PrimRep(..) )	-- getPrimRepInfo uses PrimRep repn
 import TyCon		( mkPrimTyCon, mkDataTyCon,
 			  ConsVisible(..), NewOrData(..) )
 import TyVar		( GenTyVar(..), alphaTyVars )
-import Type		( applyTyCon, mkTyVarTy )
+import Type		( applyTyCon, mkTyVarTys )
 import Usage		( usageOmega )
 import Unique
 
 \end{code}
 
 \begin{code}
-alphaTys = map mkTyVarTy alphaTyVars
+alphaTys = mkTyVarTys alphaTyVars
 (alphaTy:betaTy:gammaTy:deltaTy:_) = alphaTys
 \end{code}