X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FParseIface.y;fp=ghc%2Fcompiler%2Frename%2FParseIface.y;h=ce9526ce34dce009816e59bbe62d9489f0cd27a7;hb=408439c03f074ed86b0bbe534c7210efb271b543;hp=0ec54bcdf1ab83cade0b9ee3dd2f5b3a5e8e430f;hpb=0b78478f5248cd65ca2ffea9d597cdf412b4c924;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 0ec54bc..ce9526c 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -144,6 +144,7 @@ import FastString	( tailFS )
  '=>'		{ ITdarrow }
  '-'		{ ITminus }
  '!'		{ ITbang }
+ '*'		{ ITstar }
 
  '{'		{ ITocurly } 			-- special symbols
  '}'		{ ITccurly }
@@ -682,9 +683,8 @@ kind		:: { Kind }
 		| akind '->' kind	{ mkArrowKind $1 $3 }
 
 akind		:: { Kind }
-		: VARSYM		{ if $1 == SLIT("*") then
-						liftedTypeKind
-					  else if $1 == SLIT("?") then
+                : '*'                   { liftedTypeKind }
+		| VARSYM		{ if $1 == SLIT("?") then
 						openTypeKind
 					  else if $1 == SLIT("\36") then
                                                 usageTypeKind  -- dollar