diff options
| author | simonmar <unknown> | 1999-06-28 10:01:04 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-06-28 10:01:04 +0000 |
| commit | a33ecb97353d7e411c40edd662a4afcfc603fe28 (patch) | |
| tree | 705b12267fd8c3dd493523ef989855c98e1f16b4 | |
| parent | 8ff6657f140ad70ae232cfc443a39befc107fb9f (diff) | |
| download | haskell-a33ecb97353d7e411c40edd662a4afcfc603fe28.tar.gz | |
[project @ 1999-06-28 10:01:04 by simonmar]
Don't treat GHC extension keywords as such when recognising qualified
varids. This is a quick fix for the bug that M.label isn't recognised
as a qvarid with -fglasgow-exts on.
| -rw-r--r-- | ghc/compiler/parser/Lex.lhs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs index b8f25953b3..25aa14c5f5 100644 --- a/ghc/compiler/parser/Lex.lhs +++ b/ghc/compiler/parser/Lex.lhs @@ -272,7 +272,6 @@ haskellKeywordsFM = listToUFM $ ( "_scc_", ITscc ) ] - ghcExtensionKeywordsFM = listToUFM $ map (\ (x,y) -> (_PK_ x,y)) [ ( "forall", ITforall ), @@ -1003,12 +1002,9 @@ lex_id3 cont glaexts mod buf just_a_conid in case _scc_ "Lex.haskellKeyword" lookupUFM haskellKeywordsFM lexeme of { Just kwd_token -> just_a_conid; -- avoid M.where etc. - Nothing -> - if flag glaexts - then case lookupUFM ghcExtensionKeywordsFM lexeme of { - Just kwd_token -> just_a_conid; - Nothing -> is_a_qvarid } - else is_a_qvarid + Nothing -> is_a_qvarid + -- TODO: special ids (as, qualified, hiding) shouldn't be + -- recognised as keywords here. ie. M.as is a qualified varid. }}} |