diff options
| author | simonpj@microsoft.com <unknown> | 2008-02-19 17:34:10 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-02-19 17:34:10 +0000 |
| commit | 7a20f40e2e3405bca513b0b443450ac81547d872 (patch) | |
| tree | 7933aa2f6a4e1b07beaf6f2b598844207c96460a /compiler/main/PprTyThing.hs | |
| parent | d19a72ea089deab3aa4bb584e69c102daebb1cb4 (diff) | |
| download | haskell-7a20f40e2e3405bca513b0b443450ac81547d872.tar.gz | |
Fix Trac #2082
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 f8d5db3a40..2a7abb4bd3 100644 --- a/compiler/main/PprTyThing.hs +++ b/compiler/main/PprTyThing.hs @@ -190,7 +190,7 @@ pprDataConDecl pefas gadt_style show_label dataCon -- printing out the dataCon as a type signature, in GADT style pp_tau = foldr add (ppr res_ty) tys_w_strs - add (str,ty) pp_ty = pprBangTy str ty <+> arrow <+> pp_ty + add str_ty pp_ty = pprParendBangTy str_ty <+> arrow <+> pp_ty pprParendBangTy (strict,ty) | GHC.isMarkedStrict strict = char '!' <> GHC.pprParendType ty |