X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=bfcc856e6edcce83b91a490a25634b2913965d6f;hp=c9e843edaf7831cf495dc1507f8daa5b433dc9dc;hb=6821c8a47c0fc61a2d989d368f926cc0ded776e9;hpb=1cd9b26ddbc76e67f680b4f58e3452c6708503f1

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index c9e843e..bfcc856 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -316,6 +316,7 @@ incorrect.
  PRIMCHAR	{ L _ (ITprimchar   _) }
  PRIMSTRING	{ L _ (ITprimstring _) }
  PRIMINTEGER	{ L _ (ITprimint    _) }
+ PRIMWORD 	{ L _ (ITprimword  _) }
  PRIMFLOAT	{ L _ (ITprimfloat  _) }
  PRIMDOUBLE	{ L _ (ITprimdouble _) }
 
@@ -1862,6 +1863,7 @@ literal :: { Located HsLit }
 	: CHAR 			{ L1 $ HsChar       $ getCHAR $1 }
 	| STRING 		{ L1 $ HsString     $ getSTRING $1 }
 	| PRIMINTEGER		{ L1 $ HsIntPrim    $ getPRIMINTEGER $1 }
+	| PRIMWORD   		{ L1 $ HsWordPrim    $ getPRIMWORD $1 }
 	| PRIMCHAR		{ L1 $ HsCharPrim   $ getPRIMCHAR $1 }
 	| PRIMSTRING		{ L1 $ HsStringPrim $ getPRIMSTRING $1 }
 	| PRIMFLOAT		{ L1 $ HsFloatPrim  $ getPRIMFLOAT $1 }
@@ -1955,6 +1957,7 @@ getRATIONAL	(L _ (ITrational x)) = x
 getPRIMCHAR	(L _ (ITprimchar   x)) = x
 getPRIMSTRING	(L _ (ITprimstring x)) = x
 getPRIMINTEGER	(L _ (ITprimint    x)) = x
+getPRIMWORD	(L _ (ITprimword x)) = x
 getPRIMFLOAT	(L _ (ITprimfloat  x)) = x
 getPRIMDOUBLE	(L _ (ITprimdouble x)) = x
 getTH_ID_SPLICE (L _ (ITidEscape x)) = x