X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FLexer.x;h=5cc85ae06bc0aaa4522c28a9e1eecbe1b2c68615;hp=4d8e0f0acd61986b805d4fd8f4ce6e7eac883627;hb=a4005d2d0c18ffa72ba7bd0fa052666e70e8c16e;hpb=71aa4a4723e95b4f27fccf93dcc0a33000010974

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 4d8e0f0..5cc85ae 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -484,6 +484,7 @@ data Token
   | ITunsafe
   | ITstdcallconv
   | ITccallconv
+  | ITprimcallconv
   | ITdotnet
   | ITmdo
   | ITfamily
@@ -631,6 +632,7 @@ isSpecial ITthreadsafe 	= True
 isSpecial ITunsafe    	= True
 isSpecial ITccallconv   = True
 isSpecial ITstdcallconv = True
+isSpecial ITprimcallconv = True
 isSpecial ITmdo		= True
 isSpecial ITfamily	= True
 isSpecial ITgroup   = True
@@ -692,6 +694,7 @@ reservedWordsFM = listToUFM $
 	( "unsafe",	ITunsafe,	 bit ffiBit),
 	( "stdcall",    ITstdcallconv,	 bit ffiBit),
 	( "ccall",      ITccallconv,	 bit ffiBit),
+	( "prim",       ITprimcallconv,	 bit ffiBit),
 	( "dotnet",     ITdotnet,	 bit ffiBit),
 
 	( "rec",	ITrec,		 bit arrowsBit),