From: Ian Lynagh <igloo@earth.li>
Date: Fri, 25 Jan 2008 14:58:47 +0000 (+0000)
Subject: Parser tweak
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f940a549b7562dcdbea3af81ee93b1660d279497

Parser tweak
---

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 418f0a1..cb25136 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1231,7 +1231,7 @@ decl 	:: { Located (OrdList (LHsDecl RdrName)) }
         | docdecl                       { LL $ unitOL $1 }
 
 rhs	:: { Located (GRHSs RdrName) }
-	: '=' exp wherebinds	{ L (comb3 $1 $2 $3) $ GRHSs (unguardedRHS $2) (unLoc $3) }
+	: '=' exp wherebinds	{ sL (comb3 $1 $2 $3) $ GRHSs (unguardedRHS $2) (unLoc $3) }
 	| gdrhs	wherebinds	{ LL $ GRHSs (reverse (unLoc $1)) (unLoc $2) }
 
 gdrhs :: { Located [LGRHS RdrName] }