From: simonmar <unknown>
Date: Wed, 9 Jun 1999 11:23:20 +0000 (+0000)
Subject: [project @ 1999-06-09 11:23:20 by simonmar]
X-Git-Tag: Approximately_9120_patches~6140
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=87f049812d8fa1f2a935a77a45252cecc81419de;p=ghc-hetmet.git

[project @ 1999-06-09 11:23:20 by simonmar]
Fix qvarid bug.
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 18a2549..43e35b5 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
      }}}