X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FFrontPanel.c;h=da42548eb8eac1242d7618e44389a3b8014f85fd;hb=f4692220c7cbdadaa633f50eb2b30b59edb30183;hp=163a7c08ca2af7b65198f0d560585ae580c865c7;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/rts/FrontPanel.c b/rts/FrontPanel.c
index 163a7c0..da42548 100644
--- a/rts/FrontPanel.c
+++ b/rts/FrontPanel.c
@@ -662,8 +662,6 @@ residencyCensus( void )
 			type = Thunk;
 			break;
 
-		    case CAF_BLACKHOLE:
-		    case EAGER_BLACKHOLE:
 		    case BLACKHOLE:
 /*		    case BLACKHOLE_BQ: FIXME: case does not exist */
 			size = sizeW_fromITBL(info);
@@ -697,7 +695,7 @@ residencyCensus( void )
 			break;
 			
 		    case WEAK:
-		    case STABLE_NAME:
+		    case PRIM:
 		    case MVAR:
 		    case MUT_VAR:
 /*		    case MUT_CONS: FIXME: case does not exist */