From: Ian Lynagh <igloo@earth.li>
Date: Wed, 25 Nov 2009 20:58:09 +0000 (+0000)
Subject: Bug fix for alternative layout rule
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=196225f099f3de47d57b270616cc96c5fa89afb8;hp=609e7ddfb10bc04762b820e70e0487ad6c514c2e

Bug fix for alternative layout rule
---

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)