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.
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
}}}