[project @ 2002-02-06 15:54:23 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / ParseIface.y

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 99f84ff..b71b71f 100644 (file)
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -547,7 +547,6 @@ types2              :  type ',' type                        { [$1,$3] }
 btype          :: { RdrNameHsType }
 btype          :  atype                                { $1 }
                |  btype atype                          { HsAppTy $1 $2 }
-               |  '__u' atype atype                    { HsUsageTy $2 $3 }
 
 atype          :: { RdrNameHsType }
 atype          :  qtc_name                             { HsTyVar $1 }
@@ -579,7 +578,6 @@ ttype               : '__forall' tv_bndrs
 tbtype         :: { RdrNameHsType }
 tbtype         :  tatype                               { $1 }
                |  tbtype atype                         { HsAppTy $1 $2 }
-               |  '__u' atype atype                    { HsUsageTy $2 $3 }
 
 tatype         :: { RdrNameHsType }
 tatype         :  qtc_name                             { HsTyVar $1 }