From b9b64d71e278be0724fe948bc64b783fb97ba7f2 Mon Sep 17 00:00:00 2001
From: Joachim Breitner <mail@joachim-breitner.de>
Date: Fri, 15 Mar 2013 21:45:12 +0000
Subject: [PATCH] Fix shorten code

---
 src/GHC/HeapView.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/GHC/HeapView.hs b/src/GHC/HeapView.hs
index ed589f7..e966af3 100644
--- 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
-        ["toArray", intercalate "," (shorten (map show arrWords)) ]
+        ["toArray", "("++show (length arrWords) ++ " words)", intercalate "," (shorten (map show arrWords)) ]
     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 $
-- 
2.20.1