Commit 2d2f0570 authored by simonpj's avatar simonpj
Browse files

[project @ 2001-04-30 08:26:54 by simonpj]

Improve error message
parent c5b24c03
...@@ -679,11 +679,11 @@ matchSeparator RecUpd = panic "When is this used?" ...@@ -679,11 +679,11 @@ matchSeparator RecUpd = panic "When is this used?"
\end{code} \end{code}
\begin{code} \begin{code}
pprMatchContext (FunRhs fun) = ptext SLIT("in the definition of function") <+> quotes (ppr fun) pprMatchContext (FunRhs fun) = ptext SLIT("In the definition of") <+> quotes (ppr fun)
pprMatchContext CaseAlt = ptext SLIT("in a group of case alternatives beginning") pprMatchContext CaseAlt = ptext SLIT("In a group of case alternatives beginning")
pprMatchContext RecUpd = ptext SLIT("in a record-update construct") pprMatchContext RecUpd = ptext SLIT("In a record-update construct")
pprMatchContext PatBindRhs = ptext SLIT("in a pattern binding") pprMatchContext PatBindRhs = ptext SLIT("In a pattern binding")
pprMatchContext LambdaExpr = ptext SLIT("in a lambda abstraction") pprMatchContext LambdaExpr = ptext SLIT("In a lambda abstraction")
pprMatchContext DoExpr = ptext SLIT("in a `do' expression pattern binding") pprMatchContext DoExpr = ptext SLIT("In a 'do' expression pattern binding")
pprMatchContext ListComp = ptext SLIT("in a `list comprension' pattern binding") pprMatchContext ListComp = ptext SLIT("In a 'list comprension' pattern binding")
\end{code} \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