[commit: ghc] wip/ttypeable: Fix it (0098ba2)

[git at git.haskell.org]

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

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

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

commit 0098ba28c5d651876ba2dd3c93bea7255cf1213c
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Wed Oct 5 08:08:53 2016 -0400

    Fix it


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

0098ba28c5d651876ba2dd3c93bea7255cf1213c
 compiler/prelude/TysWiredIn.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/prelude/TysWiredIn.hs b/compiler/prelude/TysWiredIn.hs
index 8d59b80..ff95d3a 100644
--- a/compiler/prelude/TysWiredIn.hs
+++ b/compiler/prelude/TysWiredIn.hs
@@ -974,7 +974,7 @@ 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
+                         (UnboxedAlgTyCon (mkPrelTyConRepName tc_name))
 
     tc_binders = mkTemplateTyConBinders (nOfThem arity runtimeRepTy)
                                         (\ks -> map tYPE ks)