Show: Restore redundant parentheses around records
[ghc.git] / compiler / typecheck / TcGenDeriv.hs
index 34e9d11..15f0480 100644 (file)
@@ -1122,8 +1122,6 @@ gen_Show_binds get_fixity loc tycon
       | nullary_con =  -- skip the showParen junk...
          ASSERT(null bs_needed)
          ([nlWildPat, con_pat], mk_showString_app op_con_str)
-      | record_syntax =  -- skip showParen (#2530)
-         ([a_Pat, con_pat], nlHsPar (nested_compose_Expr show_thingies))
       | otherwise   =
          ([a_Pat, con_pat],
           showParen_Expr (genOpApp a_Expr ge_RDR