[project @ 1997-01-07 01:17:30 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 1092208..18eeace 100644 (file)
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -291,7 +291,7 @@ class               :: { (RdrName, RdrNameHsType) }
 class          :  qtc_name atype                       { ($1, $2) }
 
 type           :: { RdrNameHsType }
-type           : FORALL forall context DARROW tautype  { mkHsForAllTy $2 $3 $5 }
+type           : FORALL forall context DARROW type     { mkHsForAllTy $2 $3 $5 }
                | tautype                               { $1 }
 
 tautype                :: { RdrNameHsType }