From: simonmar <unknown>
Date: Tue, 6 Jul 1999 15:21:57 +0000 (+0000)
Subject: [project @ 1999-07-06 15:21:57 by simonmar]
X-Git-Tag: Approximately_9120_patches~6023
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e5a203468f55fe3523b2fa1866bd9c0c44556671

[project @ 1999-07-06 15:21:57 by simonmar]
only pop explicit layout contexts with '}'.
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index efcda1b..72b31c5 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	
-		(_:ctx') -> cont ITccurly (incLexeme buf) s{context=ctx'}
-		_ -> lexError "too many '}'s" buf s
+		(NoLayout: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#)