X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FPprTyThing.hs;h=dfa713fdc0b13276cc52d5ee9ba06ed3cf7e602d;hp=d87ffa1bf5f4e7a2a2ad3b2684738f0f1c8d79e0;hb=215ce9f15215399ce30ae55c9521087847d78646;hpb=b2d9ef8482638a91e68acdd19ecfe24db0458049

diff --git a/compiler/main/PprTyThing.hs b/compiler/main/PprTyThing.hs
index d87ffa1..dfa713f 100644
--- a/compiler/main/PprTyThing.hs
+++ b/compiler/main/PprTyThing.hs
@@ -197,13 +197,9 @@ pprDataConDecl _ gadt_style show_label dataCon
     pp_tau = foldr add (ppr res_ty) tys_w_strs
     add str_ty pp_ty = pprParendBangTy str_ty <+> arrow <+> pp_ty
 
-    pprParendBangTy (strict,ty)
-	| GHC.isMarkedStrict strict = char '!' <> GHC.pprParendType ty
-	| otherwise		    = GHC.pprParendType ty
+    pprParendBangTy (bang,ty) = ppr bang <> GHC.pprParendType ty
 
-    pprBangTy strict ty
-	| GHC.isMarkedStrict strict = char '!' <> ppr ty
-	| otherwise		    = ppr ty
+    pprBangTy bang ty = ppr bang <> ppr ty
 
     maybe_show_label (lbl,(strict,tp))
 	| show_label lbl = Just (ppr lbl <+> dcolon <+> pprBangTy strict tp)