From a33ecb97353d7e411c40edd662a4afcfc603fe28 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 28 Jun 1999 10:01:04 +0000
Subject: [PATCH] [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.
---
ghc/compiler/parser/Lex.lhs | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index b8f25953b301..25aa14c5f5a6 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.
}}}
--
GitLab