From: sof <unknown>
Date: Fri, 15 Feb 2002 21:06:29 +0000 (+0000)
Subject: [project @ 2002-02-15 21:06:29 by sof]
X-Git-Tag: Approximately_9120_patches~25
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e3fc374f3448afe54fd858eb99652677b86cf0ed;p=ghc-hetmet.git

[project @ 2002-02-15 21:06:29 by sof]
fix bug which caused 'safe' to be identical to 'unsafe' in an FFI decl.
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 501dd43..d464788 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -319,7 +319,7 @@ ghcExtensionKeywordsFM = listToUFM $
 	( "export",	ITexport ),
 	( "label",	ITlabel ),
 	( "dynamic",	ITdynamic ),
-	( "safe",	ITunsafe ),
+	( "safe",	ITsafe ),
 	( "unsafe",	ITunsafe ),
 	( "with",	ITwith ),
 	( "stdcall",    ITstdcallconv),