X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=inline;f=ghc%2Frts%2FSanity.c;h=9c0ed2bb8487ab81920e6f4987ecaf5a1b5da362;hb=91b07216be1cb09230b7d1b417899ddea8620ff3;hp=f6947c9f8c75368bb02300fdc939c44b2252cb9d;hpb=da69fa9c5047c5b0d05bdb05eaddefa1eb5d5a36;p=ghc-hetmet.git

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index f6947c9..9c0ed2b 100644
--- a/ghc/rts/Sanity.c
+++ b/ghc/rts/Sanity.c
@@ -305,7 +305,8 @@ checkClosure( StgClosure* p )
     case BLACKHOLE:
     case CAF_BLACKHOLE:
     case STABLE_NAME:
-    case MUT_VAR:
+    case MUT_VAR_CLEAN:
+    case MUT_VAR_DIRTY:
     case CONSTR_INTLIKE:
     case CONSTR_CHARLIKE:
     case CONSTR_STATIC: