Fix shorten code

diff --git a/src/GHC/HeapView.hs b/src/GHC/HeapView.hs
index ed589f7..e966af3 100644 (file)
--- a/src/GHC/HeapView.hs
+++ b/src/GHC/HeapView.hs
@@ -657,9 +657,9 @@ ppClosure showBox prec c = case c of
     BCOClosure {..} -> app
         ["_bco"]
     ArrWordsClosure {..} -> app
     BCOClosure {..} -> app
         ["_bco"]
     ArrWordsClosure {..} -> app

-        ["toArray", intercalate "," (shorten (map show arrWords)) ]
+        ["toArray", "("++show (length arrWords) ++ " words)", intercalate "," (shorten (map show arrWords)) ]

     MutArrClosure {..} -> app 
     MutArrClosure {..} -> app 

-        ["toMutArray", intercalate "," (shorten (map (showBox 10) mccPayload))]
+        ["toMutArray", "("++show (length mccPayload) ++ " ptrs)",  intercalate "," (shorten (map (showBox 10) mccPayload))]

     MutVarClosure {..} -> app $
         ["_mutVar", (showBox 10) var]
     MVarClosure {..} -> app $
     MutVarClosure {..} -> app $
         ["_mutVar", (showBox 10) var]
     MVarClosure {..} -> app $