diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2018-07-20 12:50:50 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2018-07-20 12:50:50 +0200 |
| commit | 99f45e2a751dda4fdf00256d397a2932d430f3a7 (patch) | |
| tree | 0a556fd4706a6f496d7af0ac27439b216241ee1b /compiler | |
| parent | 176abdf4126c949be7cd3aecd8b95c0fffe6d849 (diff) | |
| download | haskell-99f45e2a751dda4fdf00256d397a2932d430f3a7.tar.gz | |
Fix #15423 by using pprAStmtContext
Summary:
Previously, we were using `pprStmtContext` instead, which
led to error messages missing indefinite articles where they were
required.
Test Plan: make test TEST="T13242a T7786 Typeable1"
Reviewers: bgamari
Subscribers: rwbarton, thomie, carter
GHC Trac Issues: #15423
Differential Revision: https://phabricator.haskell.org/D4992
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/hsSyn/HsExpr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsExpr.hs b/compiler/hsSyn/HsExpr.hs index 96d86c871b..a5c65fb2b2 100644 --- a/compiler/hsSyn/HsExpr.hs +++ b/compiler/hsSyn/HsExpr.hs @@ -2804,7 +2804,7 @@ pprMatchContextNoun PatBindGuards = text "pattern binding guards" pprMatchContextNoun LambdaExpr = text "lambda abstraction" pprMatchContextNoun ProcExpr = text "arrow abstraction" pprMatchContextNoun (StmtCtxt ctxt) = text "pattern binding in" - $$ pprStmtContext ctxt + $$ pprAStmtContext ctxt pprMatchContextNoun PatSyn = text "pattern synonym declaration" ----------------- |