From 87f049812d8fa1f2a935a77a45252cecc81419de Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 9 Jun 1999 11:23:20 +0000
Subject: [PATCH] [project @ 1999-06-09 11:23:20 by simonmar] Fix qvarid bug.
---
ghc/compiler/parser/Lex.lhs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 18a254905ae7..43e35b5cc657 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -1000,6 +1000,7 @@ lex_id3 cont glaexts mod buf just_a_conid
let
lexeme = lexemeToFastString buf'
new_buf = mergeLexemes buf buf'
+ is_a_qvarid = cont (mk_qvar_token mod lexeme) new_buf
in
case _scc_ "Lex.haskellKeyword" lookupUFM haskellKeywordsFM lexeme of {
Just kwd_token -> just_a_conid; -- avoid M.where etc.
@@ -1007,8 +1008,8 @@ lex_id3 cont glaexts mod buf just_a_conid
if flag glaexts
then case lookupUFM ghcExtensionKeywordsFM lexeme of {
Just kwd_token -> just_a_conid;
- Nothing -> cont (mk_qvar_token mod lexeme) new_buf }
- else just_a_conid
+ Nothing -> is_a_qvarid }
+ else is_a_qvarid
}}}
--
GitLab