From: Ian Lynagh <igloo@earth.li>
Date: Sun, 29 Nov 2009 15:23:23 +0000 (+0000)
Subject: Tweak alternative layout rule
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=59300a7161f44b3a2afe381a6ccd914043a32c4f

Tweak alternative layout rule
---

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)