From 69a603fbd27cb7286f154ee7d113e2dbcc0f80c0 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 7 Jul 1999 11:22:13 +0000
Subject: [PATCH] [project @ 1999-07-07 11:22:13 by simonmar] Back out
yesterday's change - needs more thought.
---
ghc/compiler/parser/Lex.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 72b31c529209..39b2358d08b0 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -522,8 +522,8 @@ lexToken cont glaexts buf =
'}'# -> \ s@PState{context = ctx} ->
case ctx of
- (NoLayout:ctx') -> cont ITccurly (incLexeme buf) s{context=ctx'}
- _ -> lexError "too many '}'s" buf s
+ (_:ctx') -> cont ITccurly (incLexeme buf) s{context=ctx'}
+ _ -> lexError "too many '}'s" buf s
'#'# -> case lookAhead# buf 1# of
')'# | flag glaexts -> cont ITcubxparen (setCurrentPos# buf 2#)
--
GitLab