X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FPrinter.c;h=83afd48a5079d057448e8c33a1fb654344154ca7;hp=36fdf7bda4ba7831163e562144865fcc89ddeec7;hb=a0be7e7ccd602efd9b7d35b3e0747a2c4f155ce9;hpb=ddf8b805caafdfb5e3bbc3356aaed66af6f0b5e9;ds=sidebyside

diff --git a/rts/Printer.c b/rts/Printer.c
index 36fdf7b..83afd48 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -133,8 +133,6 @@ printClosure( StgClosure *obj )
     case CONSTR:
     case CONSTR_1_0: case CONSTR_0_1:
     case CONSTR_1_1: case CONSTR_0_2: case CONSTR_2_0:
-    case CONSTR_INTLIKE:
-    case CONSTR_CHARLIKE:
     case CONSTR_STATIC:
     case CONSTR_NOCAF_STATIC:
         {
@@ -657,8 +655,6 @@ static char *closure_type_names[] = {
     "CONSTR_2",
     "CONSTR_1",
     "CONSTR_0",
-    "CONSTR_INTLIKE",
-    "CONSTR_CHARLIKE",
     "CONSTR_STATIC",
     "CONSTR_NOCAF_STATIC",
     "FUN",