From: josefs <unknown>
Date: Wed, 4 May 2005 15:12:14 +0000 (+0000)
Subject: [project @ 2005-05-04 15:12:14 by josefs]
X-Git-Tag: Initial_conversion_from_CVS_complete~611
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ebcd8c64da3f0bfca845c254d433779480cd451b;p=ghc-hetmet.git

[project @ 2005-05-04 15:12:14 by josefs]
Make GHC accept external core files with higher rank types.
---

diff --git a/ghc/compiler/parser/ParserCore.y b/ghc/compiler/parser/ParserCore.y
index 33f4aad..5992810 100644
--- a/ghc/compiler/parser/ParserCore.y
+++ b/ghc/compiler/parser/ParserCore.y
@@ -131,6 +131,7 @@ aty	:: { IfaceType }
 bty	:: { IfaceType }
 	: tv_occ atys    { foldl IfaceAppTy (IfaceTyVar $1) $2 }
         | q_tc_name atys  { IfaceTyConApp (IfaceTc $1) $2 }
+        | '(' ty ')' { $2 }
 
 ty	:: { IfaceType }
 	: bty	                     { $1 }