diff options
| author | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2013-04-19 13:23:11 +0200 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-04-21 14:45:06 +0100 |
| commit | 144db21e9519fac0af5a845b57b605567c1aaa25 (patch) | |
| tree | ca3521132bda47f9b57b4314950030ce5574c8e2 /compiler/main/PprTyThing.hs | |
| parent | 78d564483514e7e06cda95da7d0b51526ea2ba91 (diff) | |
| download | haskell-144db21e9519fac0af5a845b57b605567c1aaa25.tar.gz | |
Display operators using parentheses/backticks in error messages (#7848)
Diffstat (limited to 'compiler/main/PprTyThing.hs')
| -rw-r--r-- | compiler/main/PprTyThing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/PprTyThing.hs b/compiler/main/PprTyThing.hs index c14b853145..878ba647ed 100644 --- a/compiler/main/PprTyThing.hs +++ b/compiler/main/PprTyThing.hs @@ -228,7 +228,7 @@ pprDataConDecl pefas ss gadt_style dataCon user_ify bang = bang maybe_show_label (lbl,bty) - | showSub ss lbl = Just (ppr lbl <+> dcolon <+> pprBangTy bty) + | showSub ss lbl = Just (ppr_bndr lbl <+> dcolon <+> pprBangTy bty) | otherwise = Nothing ppr_fields [ty1, ty2] |