[commit: ghc] wip/ttypeable: Disable Typeable binding generation for unboxed tuples (d31cdc4)

[git at git.haskell.org]

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

On branch  : wip/ttypeable
Link       : http://ghc.haskell.org/trac/ghc/changeset/d31cdc483534b6847fdc2e3e0c5abaed4f69b24a/ghc

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

commit d31cdc483534b6847fdc2e3e0c5abaed4f69b24a
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Feb 12 09:06:00 2017 -0500

    Disable Typeable binding generation for unboxed tuples


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

d31cdc483534b6847fdc2e3e0c5abaed4f69b24a
 compiler/prelude/TysWiredIn.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/prelude/TysWiredIn.hs b/compiler/prelude/TysWiredIn.hs
index ace7444..4c70382 100644
--- a/compiler/prelude/TysWiredIn.hs
+++ b/compiler/prelude/TysWiredIn.hs
@@ -974,7 +974,9 @@ mk_sum :: Arity -> (TyCon, Array ConTagZ DataCon)
 mk_sum arity = (tycon, sum_cons)
   where
     tycon   = mkSumTyCon tc_name tc_binders tc_res_kind (arity * 2) tyvars (elems sum_cons)
-                         (UnboxedAlgTyCon (mkPrelTyConRepName tc_name))
+                         (UnboxedAlgTyCon rep_name)
+
+    rep_name = mkPrelTyConRepName tc_name
 
     tc_binders = mkTemplateTyConBinders (nOfThem arity runtimeRepTy)
                                         (\ks -> map tYPE ks)