X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=a750397ea3716d0106bf4c6a00427958b62e8b37;hp=1a20fa8ec57d76c61c8210c9994be9514a80c5f1;hb=ee2dd59cf1c96437696b9ec39b35dd1beea259a1;hpb=24ce1351fb121d429375f411a8a95d619de921e1

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 1a20fa8..a750397 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -32,7 +32,7 @@ import SrcLoc		( Located(..), unLoc, getLoc, noLoc, combineSrcSpans,
 			  mkSrcLoc, mkSrcSpan )
 import Module
 import StaticFlags	( opt_SccProfilingOn )
-import Type		( Kind, mkArrowKind, liftedTypeKind )
+import Type		( Kind, mkArrowKind, liftedTypeKind, unliftedTypeKind )
 import BasicTypes	( Boxity(..), Fixity(..), FixityDirection(..), IPName(..),
 			  Activation(..), defaultInlineSpec )
 import OrdList
@@ -850,6 +850,7 @@ kind	:: { Kind }
 
 akind	:: { Kind }
 	: '*'			{ liftedTypeKind }
+	| '!'			{ unliftedTypeKind }
 	| '(' kind ')'		{ $2 }