X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=inline;f=compiler%2Fparser%2FParser.y.pp;h=1cee18be7c435cd9a37349999ec54309ecde296b;hb=af2db474c2bb80e29924430e3c730bc217e55189;hp=b624455d3ffcdfc07936f559aff391a7acac3d4c;hpb=dd70a2da99ae6b09115ea80163d993e738c581fe;p=ghc-hetmet.git

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