Correctly track annotations in a HeapGraph

[ghc-heap-view.git] / src / GHC / AssertNF.hs

diff --git a/src/GHC/AssertNF.hs b/src/GHC/AssertNF.hs
index c1871b1..aa6fd32 100644 (file)
--- a/src/GHC/AssertNF.hs
+++ b/src/GHC/AssertNF.hs
@@ -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