From: simonpj@microsoft.com <unknown>
Date: Wed, 6 Jan 2010 16:06:42 +0000 (+0000)
Subject: Make view patterns right-associate
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c75d5fc876279575226ec22a27ce056851128ade;hp=77166b1729061531eeb77c33f4d3b2581f7d4c41

Make view patterns right-associate

So that you can write

   f (v1 -> v2 -> pat)
---

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 5243c08..e7c991b 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1417,7 +1417,7 @@ texp :: { LHsExpr RdrName }
 	| qopm infixexp       { LL $ SectionR $1 $2 }
 
        -- View patterns get parenthesized above
-	| exp '->' exp   { LL $ EViewPat $1 $3 }
+	| exp '->' texp   { LL $ EViewPat $1 $3 }
 
 -- Always at least one comma
 tup_exprs :: { [HsTupArg RdrName] }