X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fparser%2FLex.lhs;h=d559150c85db71f9c50b776e1ed9d62a367b8375;hb=cd0f89a0bf35c36575ea89d7c7599473a3600683;hp=33a95944a3a5cc9ee014bf8a14a3337ed10f9fd3;hpb=81b7a3fb76642a3a53da9230fdd870dc2d8f65be;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 33a9594..d559150 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -310,8 +310,6 @@ ghcExtensionKeywordsFM = listToUFM $
 	( "reifyType",  ITreifyType,	 bit glaExtsBit),
 	( "reifyFixity",ITreifyFixity,	 bit glaExtsBit),
 
-	( "rec",	ITrec,		 bit glaExtsBit .|. bit arrowsBit),
-
 	( "foreign",	ITforeign,	 bit ffiBit),
 	( "export",	ITexport,	 bit ffiBit),
 	( "label",	ITlabel,	 bit ffiBit),
@@ -325,6 +323,7 @@ ghcExtensionKeywordsFM = listToUFM $
 
 	( "with",	ITwith,		 bit withBit),
 
+	( "rec",	ITrec,		 bit arrowsBit),
 	( "proc",	ITproc,		 bit arrowsBit),
 
 	-- On death row