diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-03-03 16:30:23 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-03-03 16:30:23 +0000 |
| commit | 4348e0b4401047f019f6a1ae89d5906fb628dcaa (patch) | |
| tree | bf25351ea2f1b185c7ac11bb59f3729708a3fefb /compiler/hsSyn/HsExpr.lhs | |
| parent | 59d2216e8f1b29f86b0fdb6b52a141eb2ec0e2c9 (diff) | |
| download | haskell-4348e0b4401047f019f6a1ae89d5906fb628dcaa.tar.gz | |
Fix missing backticks and parentheses in error messages; fixes #7734
Patch from monoidal
Diffstat (limited to 'compiler/hsSyn/HsExpr.lhs')
| -rw-r--r-- | compiler/hsSyn/HsExpr.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/hsSyn/HsExpr.lhs b/compiler/hsSyn/HsExpr.lhs index b4de840e47..fe44e45f15 100644 --- a/compiler/hsSyn/HsExpr.lhs +++ b/compiler/hsSyn/HsExpr.lhs @@ -910,7 +910,7 @@ pprMatch ctxt (Match pats maybe_ty grhss) (herald, other_pats) = case ctxt of FunRhs fun is_infix - | not is_infix -> (ppr fun, pats) + | not is_infix -> (pprPrefixOcc fun, pats) -- f x y z = e -- Not pprBndr; the AbsBinds will -- have printed the signature @@ -921,7 +921,7 @@ pprMatch ctxt (Match pats maybe_ty grhss) | otherwise -> (parens pp_infix, pats2) -- (x &&& y) z = e where - pp_infix = pprParendLPat pat1 <+> ppr fun <+> pprParendLPat pat2 + pp_infix = pprParendLPat pat1 <+> pprInfixOcc fun <+> pprParendLPat pat2 LambdaExpr -> (char '\\', pats) |