Actually use heapGraphRoot in ppHeapGraph
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 20 Dec 2012 10:29:35 +0000 (10:29 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 20 Dec 2012 10:29:35 +0000 (10:29 +0000)
src/GHC/HeapView.hs

index 53b9475..0187e4c 100644 (file)
@@ -778,7 +778,7 @@ buildHeapGraph limit initialBox = do
 -- >    x3 = C# 'o'
 -- >in x0
 ppHeapGraph :: HeapGraph -> String
-ppHeapGraph (HeapGraph m) = "let " ++ intercalate "\n    " (map ppEntry (M.assocs m)) ++ "\nin x0"
+ppHeapGraph (HeapGraph m) = "let " ++ intercalate "\n    " (map ppEntry (M.assocs m)) ++ "\nin x" ++ show heapGraphRoot
   where
     ppEntry (i,HeapGraphEntry _ c) = "x" ++ show i ++ " = " ++ ppPrintClosure go 0 c
     go _ Nothing = "..."