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