From: simonmar <unknown>
Date: Thu, 11 Sep 2003 09:29:22 +0000 (+0000)
Subject: [project @ 2003-09-11 09:29:22 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~472
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d854ef58a1564cacd523dfd8f5966247e229b96f;p=ghc-hetmet.git

[project @ 2003-09-11 09:29:22 by simonmar]
The reify keywords should be valid when template haskell is turned on.
---

diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x
index 0bff597..1159f63 100644
--- a/ghc/compiler/parser/Lexer.x
+++ b/ghc/compiler/parser/Lexer.x
@@ -503,9 +503,9 @@ reservedWordsFM = listToUFM $
 
       	( "forall",	ITforall,	 bit glaExtsBit),
 	( "mdo",	ITmdo,		 bit glaExtsBit),
-	( "reifyDecl",  ITreifyDecl,	 bit glaExtsBit),
-	( "reifyType",  ITreifyType,	 bit glaExtsBit),
-	( "reifyFixity",ITreifyFixity,	 bit glaExtsBit),
+	( "reifyDecl",  ITreifyDecl,	 bit thBit),
+	( "reifyType",  ITreifyType,	 bit thBit),
+	( "reifyFixity",ITreifyFixity,	 bit thBit),
 
 	( "foreign",	ITforeign,	 bit ffiBit),
 	( "export",	ITexport,	 bit ffiBit),