X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fgenprimopcode%2FMain.hs;h=2f7a287ea2d5782b5504de2e774ec431c70e6da2;hp=74dbd5aa95fca6068165f3675d94fe4da2782e6a;hb=69f8ed93800605d8df011388450d6d3bb9ca6071;hpb=6582768fd0065b9aa4abdd93fdfa6ac1d047482b

diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs
index 74dbd5a..2f7a287 100644
--- a/utils/genprimopcode/Main.hs
+++ b/utils/genprimopcode/Main.hs
@@ -662,8 +662,7 @@ ppType (TyApp "MVar#" [x,y])     = "mkMVarPrimTy " ++ ppType x
                                    ++ " " ++ ppType y
 ppType (TyApp "TVar#" [x,y])     = "mkTVarPrimTy " ++ ppType x 
                                    ++ " " ++ ppType y
-ppType (TyUTup ts)               = "(mkTupleTy Unboxed " ++ show (length ts)
-                                   ++ " "
+ppType (TyUTup ts)               = "(mkTupleTy Unboxed " 
                                    ++ listify (map ppType ts) ++ ")"
 
 ppType (TyF s d) = "(mkFunTy (" ++ ppType s ++ ") (" ++ ppType d ++ "))"