X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=e7c991b36a3bc6a99b6a96f0ccb7ea62aefc3526;hp=5243c0817d561e3fe0b7694c94eae75e85f44774;hb=c75d5fc876279575226ec22a27ce056851128ade;hpb=77166b1729061531eeb77c33f4d3b2581f7d4c41

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] }