From 59300a7161f44b3a2afe381a6ccd914043a32c4f Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 29 Nov 2009 15:23:23 +0000 Subject: [PATCH] Tweak alternative layout rule --- compiler/parser/Lexer.x | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 43ddf7c..7594079 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -2002,9 +2002,9 @@ alternativeLayoutRuleToken t return (L thisLoc ITocurly) | otherwise -> do setAlrExpectingOCurly Nothing - setPendingImplicitTokens [L thisLoc ITccurly] + setPendingImplicitTokens [L lastLoc ITccurly] setNextToken t - return (L thisLoc ITocurly) + return (L lastLoc ITocurly) (_, _, Just expectingOCurly) -> do setAlrExpectingOCurly Nothing setALRContext (ALRLayout expectingOCurly thisCol : context) -- 1.7.10.4