X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FParseIface.y;h=f821b31294a520dbe288e476243df051b97e9755;hb=f83a5a68edb4b9dbdff1eebeed84527711efc728;hp=9dacbee5f37460d25a9ef8f8d4d1419d6c9813ac;hpb=72512afb8186c5e383bd2341ad67709958f70eac;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 9dacbee..f821b31 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -370,12 +370,12 @@ deprecs		: {- empty -}		{ [] }
 		| deprecs deprec ';'	{ $2 : $1 }
 
 deprec		:: { RdrNameDeprecation }
-deprec		: STRING		{ DeprecMod     $1 }
-		| deprec_name STRING	{ DeprecName $1 $2 }
+deprec		: STRING		{ Deprecation (IEModuleContents undefined) $1 }
+		| deprec_name STRING	{ Deprecation $1 $2 }
 
-deprec_name	:: { RdrName }
-		: var_name		{ $1 }
-		| tc_name		{ $1 }
+-- SUP: TEMPORARY HACK
+deprec_name	:: { RdrNameIE }
+		: var_name		{ IEVar $1 }
 
 -----------------------------------------------------------------------------