X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Frename%2FRnExpr.lhs;h=a41a305ab129613c7263fc6b3d1c3e5696cd4eb9;hb=20e30feeb894a72f33ec9c31ac7ee0438967ef2e;hp=a496c66daa3f24f2e4a4094c720a5c98273b82dd;hpb=84de3b9d45a4da7f1a406223e262c014ab398a1e;p=ghc-hetmet.git

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}