From 3c8339e501570a147e2cb2acf6322461c9439364 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Fri, 17 Aug 2007 22:17:33 +0000
Subject: [PATCH] Make :i (->) work; fixes trac #1587

---
 compiler/parser/Parser.y.pp |    1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index b624455..1cee18b 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -345,6 +345,7 @@ identifier :: { Located RdrName }
 	| qcon				{ $1 }
 	| qvarop			{ $1 }
 	| qconop			{ $1 }
+    | '(' '->' ')'      { LL $ getRdrName funTyCon }
 
 -----------------------------------------------------------------------------
 -- Module Header
-- 
1.7.10.4