[project @ 1999-07-07 11:22:13 by simonmar]

[ghc-hetmet.git] / ghc / compiler / parser / Lex.lhs

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 72b31c5..39b2358 100644 (file)
--- 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#)