X-Git-Url: http://git.nomeata.de/?p=ghc-heap-view.git;a=blobdiff_plain;f=src%2FGHC%2FAssertNF.hs;h=aa6fd32c7350bc8c4ee527a8a631e1966a6f64a1;hp=c1871b116e6813ca8afce15e82fc1ac41fc91d5d;hb=6cc33a34c5939eae6a5263d1335237924b2a79a3;hpb=d3ee32501a27f8e9dd8f4645185fc2beaddd05bd

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