X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSanity.c;h=dcb6e5b5ea97169c9f0b674010ae672c9b7ddb1e;hb=da4dda13a3faf2ecc2138d16b7faa79cff264037;hp=a2ddff87d6e3d39bbe3978f11ffbccbf40f6af7e;hpb=6015a94f9108a502150565577b66c23650796639;p=ghc-hetmet.git

diff --git a/rts/Sanity.c b/rts/Sanity.c
index a2ddff8..dcb6e5b 100644
--- a/rts/Sanity.c
+++ b/rts/Sanity.c
@@ -256,7 +256,8 @@ checkClosure( StgClosure* p )
     info = get_itbl(p);
     switch (info->type) {
 
-    case MVAR:
+    case MVAR_CLEAN:
+    case MVAR_DIRTY:
       { 
 	StgMVar *mvar = (StgMVar *)p;
 	ASSERT(LOOKS_LIKE_CLOSURE_PTR(mvar->head));