From: Ian Lynagh <igloo@earth.li>
Date: Mon, 14 Jan 2008 11:50:31 +0000 (+0000)
Subject: Give an error if view pattern syntax is used in an expression; fixes #2033
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=20e30feeb894a72f33ec9c31ac7ee0438967ef2e

Give an error if view pattern syntax is used in an expression; fixes #2033
---

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index a496c66..a41a305 100644
--- a/compiler/rename/RnExpr.lhs
+++ b/compiler/rename/RnExpr.lhs
@@ -278,6 +278,7 @@ We return a (bogus) EWildPat in each case.
 \begin{code}
 rnExpr e@EWildPat      = patSynErr e
 rnExpr e@(EAsPat {})   = patSynErr e
+rnExpr e@(EViewPat {}) = patSynErr e
 rnExpr e@(ELazyPat {}) = patSynErr e
 \end{code}