X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;fp=compiler%2Fparser%2FParser.y.pp;h=a827ee4c5e52b360568c6bc40f0e505f6e5d4076;hp=0604d22b2491679433624cc4fb2d10165a595a09;hb=f9c3194e1d4f0f1c370fd059192565b1e7943bf1;hpb=c5b178be60a5a44abd2f4ddf8c399857678326e2

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 0604d22..a827ee4 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1033,6 +1033,7 @@ atype :: { LHsType RdrName }
 	| '(#' comma_types1 '#)'	{ LL $ HsTupleTy Unboxed $2     }
 	| '[' ctype ']'			{ LL $ HsListTy  $2 }
 	| '<{' ctype '}>' '@' tyvar     { LL $ HsModalBoxType  (unLoc $5) $2 }
+	| '<[' ctype ']>' '@' tyvar     { LL $ HsModalBoxType  (unLoc $5) $2 }
 	| '[:' ctype ':]'		{ LL $ HsPArrTy  $2 }
 	| '(' ctype ')'		        { LL $ HsParTy   $2 }
 	| '(' ctype '::' kind ')'	{ LL $ HsKindSig $2 (unLoc $4) }