From 196225f099f3de47d57b270616cc96c5fa89afb8 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 25 Nov 2009 20:58:09 +0000 Subject: [PATCH] Bug fix for alternative layout rule --- compiler/parser/Lexer.x | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 00926bd..5083470 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -2050,7 +2050,7 @@ alternativeLayoutRuleToken t do setALRContext ls setPendingImplicitTokens [t] return (L thisLoc ITccurly) - (ITin, _ : ls, _) -> + (ITin, ALRLayout _ _ : ls, _) -> do setALRContext ls setNextToken t return (L thisLoc ITccurly) -- 1.7.10.4