Commit 20e30fee authored by Ian Lynagh's avatar Ian Lynagh

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

parent 84de3b9d
......@@ -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}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment