Make printHeap work after :reload
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 20 Dec 2012 18:36:34 +0000 (18:36 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 20 Dec 2012 18:36:34 +0000 (18:36 +0000)
ghci

diff --git a/ghci b/ghci
index 19b52f0..6c159e9 100644 (file)
--- a/ghci
+++ b/ghci
@@ -1,5 +1,3 @@
-let _ghcHeapViewDepth = 1000 :: Int
+:def setPrintHeapDepth \x -> return $ ":def! printHeap \\x -> return $ \"GHC.HeapView.buildHeapGraph (" ++ x ++ ") (GHC.HeapView.asBox (\" ++ x ++ \")) >>= putStrLn . GHC.HeapView.ppHeapGraph\""
 
-:def setPrintHeapDepth \x -> return $ "let _ghcHeapViewDepth = " ++ x ++ ":: Int"
-
-:def printHeap \x -> return $ "GHC.HeapView.buildHeapGraph _ghcHeapViewDepth (GHC.HeapView.asBox (" ++ x ++ ")) >>= putStrLn . GHC.HeapView.ppHeapGraph"
+:def printHeap \x -> return $ "GHC.HeapView.buildHeapGraph 1000 (GHC.HeapView.asBox (" ++ x ++ ")) >>= putStrLn . GHC.HeapView.ppHeapGraph"