Add ghci file providing :printHeap command
[ghc-heap-view.git] / ghci
1 let _ghcHeapViewDepth = 1000 :: Int
2
3 :def setPrintHeapDepth \x -> return $ "let _ghcHeapViewDepth = " ++ x ++ ":: Int"
4
5 :def printHeap \x -> return $ "GHC.HeapView.buildHeapGraph _ghcHeapViewDepth (GHC.HeapView.asBox (" ++ x ++ ")) >>= putStrLn . GHC.HeapView.ppHeapGraph"