[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 (file)
--- 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),