From 20e30feeb894a72f33ec9c31ac7ee0438967ef2e Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Mon, 14 Jan 2008 11:50:31 +0000
Subject: [PATCH] Give an error if view pattern syntax is used in an
 expression; fixes #2033

---
 compiler/rename/RnExpr.lhs |    1 +
 1 file changed, 1 insertion(+)

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