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

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index b4d40ce..4d8e0f0 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -688,7 +688,7 @@ reservedWordsFM = listToUFM $
 	( "label",	ITlabel,	 bit ffiBit),
 	( "dynamic",	ITdynamic,	 bit ffiBit),
 	( "safe",	ITsafe,		 bit ffiBit),
-	( "threadsafe",	ITthreadsafe,	 bit ffiBit),
+	( "threadsafe",	ITthreadsafe,	 bit ffiBit),  -- ToDo: remove
 	( "unsafe",	ITunsafe,	 bit ffiBit),
 	( "stdcall",    ITstdcallconv,	 bit ffiBit),
 	( "ccall",      ITccallconv,	 bit ffiBit),