Correctly track annotations in a HeapGraph
[ghc-heap-view.git] / src / GHC / AssertNF.hs
index c1871b1..aa6fd32 100644 (file)
@@ -100,7 +100,7 @@ assertNF' str x = do
     when en $ do 
         depths <- assertNFBoxed 0 (asBox x)
         unless (null depths) $ do
     when en $ do 
         depths <- assertNFBoxed 0 (asBox x)
         unless (null depths) $ do
-            g <- buildHeapGraph (maximum depths + 3) () () (asBox x)
+            g <- buildHeapGraph (maximum depths + 3) () (asBox x)
                 -- +3 for good mesure; applications don't look good otherwise
             traceIO $ str ++ ": " ++ show (length depths) ++ " thunks found:\n" ++
                 ppHeapGraph g
                 -- +3 for good mesure; applications don't look good otherwise
             traceIO $ str ++ ": " ++ show (length depths) ++ " thunks found:\n" ++
                 ppHeapGraph g