Treat dirty MVars like clean MVars

This possibly fixes #2.

diff --git a/cbits/HeapView.c b/cbits/HeapView.c
index ccfb122..17dd24d 100644 (file)
--- a/cbits/HeapView.c
+++ b/cbits/HeapView.c
@@ -247,6 +247,7 @@ StgMutArrPtrs *gtc_heap_view_closurePtrs(Capability *cap, StgClosure *closure) {
         case MUT_VAR_CLEAN:
             ptrs[nptrs++] = ((StgMutVar *)closure)->var;
             break;
+        case MVAR_DIRTY:
         case MVAR_CLEAN:
             ptrs[nptrs++] = (StgClosure *)((StgMVar *)closure)->head;
             ptrs[nptrs++] = (StgClosure *)((StgMVar *)closure)->tail;