X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FPrinter.c;h=3e80bd1a6f08a106eaf6e164a93861b50f77d11f;hb=05b677fad57427a5639b36a1822c9ebd52cb3339;hp=d46283cbb35a38e48eecbccdb6d22c0b050bed06;hpb=e724120ffcc8fe28c59ecef2fbbc94d7c67b92d0;p=ghc-hetmet.git

diff --git a/rts/Printer.c b/rts/Printer.c
index d46283c..3e80bd1 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -340,7 +340,8 @@ printClosure( StgClosure *obj )
 	debugBelch("MUT_ARR_PTRS_FROZEN(size=%lu)\n", (lnat)((StgMutArrPtrs *)obj)->ptrs);
 	break;
 
-    case MVAR:
+    case MVAR_CLEAN:
+    case MVAR_DIRTY:
         {
 	  StgMVar* mv = (StgMVar*)obj;
 	  debugBelch("MVAR(head=%p, tail=%p, value=%p)\n", mv->head, mv->tail, mv->value);