Forgotten function
authordennis <dennis@felsin9.de>
Mon, 25 Feb 2013 01:49:54 +0000 (01:49 +0000)
committerdennis <dennis@felsin9.de>
Mon, 25 Feb 2013 01:49:54 +0000 (01:49 +0000)
src/GHC/HeapView.hs

index 7c4eb25..cc88e1d 100644 (file)
@@ -823,6 +823,8 @@ generalBuildHeapGraph knownEntries newIndices limit initialBoxes = do
         modify (\(a,b,c) -> (a, tail b, c))
         return i
 
         modify (\(a,b,c) -> (a, tail b, c))
         return i
 
+    initialLookup b = lookup b $ map swap initialBoxes
+
 -- | Pretty-prints a HeapGraph. The resulting string contains newlines. Example
 -- for @let s = "Ki" in (s, s, cycle "Ho")@:
 --
 -- | Pretty-prints a HeapGraph. The resulting string contains newlines. Example
 -- for @let s = "Ki" in (s, s, cycle "Ho")@:
 --