[commit: ghc] wip/T12618: Always build a wrapper for data types (39185a4)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T12618
Link       : http://ghc.haskell.org/trac/ghc/changeset/39185a4af6d85087f2eb42fb02f74e990bcb142d/ghc

>---------------------------------------------------------------

commit 39185a4af6d85087f2eb42fb02f74e990bcb142d
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Oct 4 15:14:45 2016 -0400

    Always build a wrapper for data types


>---------------------------------------------------------------

39185a4af6d85087f2eb42fb02f74e990bcb142d
 compiler/basicTypes/MkId.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/compiler/basicTypes/MkId.hs b/compiler/basicTypes/MkId.hs
index 2267a47..8f61d96 100644
--- a/compiler/basicTypes/MkId.hs
+++ b/compiler/basicTypes/MkId.hs
@@ -552,10 +552,6 @@ mkDataConRep dflags fam_envs wrap_name mb_bangs data_con
     (rep_tys, rep_strs) = unzip (concat rep_tys_w_strs)
 
     wrapper_reqd = not (isNewTyCon tycon)  -- Newtypes have only a worker
-                && (any isBanged (ev_ibangs ++ arg_ibangs)
-                      -- Some forcing/unboxing (includes eq_spec)
-                    || isFamInstTyCon tycon  -- Cast result
-                    || (not $ null eq_spec)) -- GADT
 
     build_con_app rep_ids = mkConApp data_con $ concat
         [ map Type res_ty_args