let .. in instead of let .. let
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 20 Dec 2012 13:08:25 +0000 (13:08 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 20 Dec 2012 13:08:25 +0000 (13:08 +0000)
ghc-heap-view.cabal
src/GHC/HeapView.hs

index b770423..88fa297 100644 (file)
@@ -19,22 +19,22 @@ Description:
   >> :printHeap x
   >let x1 = _bco
   >    x21 = []
-  >let (x1,_bco,_bco)
+  >in (x1,_bco,_bco)
   >> length (take 100 (show x)) `seq` return () -- evaluate everything
   >> :printHeap x
   >let x1 = "A Value"
   >    x16 = True : False : x16
-  >let (x1,x1,x16)
+  >in (x1,x1,x16)
   .
   You can change the maximum recursion depth using @:setPrintHeapDepth@:
   .
   >> :setPrintHeapDepth 3
   >> :printHeap x
   >let x1 = C# 'A' : ... : ...
-  >let (x1,x1,True : ... : ...)
+  >in (x1,x1,True : ... : ...)
   .
   If the view is impaired by blackholes (written @_bh@), running
-  'System.Mem.perfromGC' usually helps.
+  @System.Mem.performGC@ usually helps.
   .
   The work on this package has been supported by the Deutsche Telekom Stiftung
   (<http://telekom-stiftung.de>).
index f324322..27ee2d7 100644 (file)
@@ -796,7 +796,7 @@ ppHeapGraph (HeapGraph m) = letWrapper ++ ppRef 0 (Just heapGraphRoot)
     letWrapper =
         if null bindings
         then ""
-        else "let " ++ intercalate "\n    " (map ppBinding bindings) ++ "\nlet "
+        else "let " ++ intercalate "\n    " (map ppBinding bindings) ++ "\nin "
 
     ppBinding i = "x" ++ show i ++ " = " ++ ppEntry 0 (iToE i)