From ebcd8c64da3f0bfca845c254d433779480cd451b Mon Sep 17 00:00:00 2001
From: josefs <unknown>
Date: Wed, 4 May 2005 15:12:14 +0000
Subject: [PATCH] [project @ 2005-05-04 15:12:14 by josefs] Make GHC accept
 external core files with higher rank types.

---
 ghc/compiler/parser/ParserCore.y |    1 +
 1 file changed, 1 insertion(+)

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 }
-- 
1.7.10.4