From d172cd0d6e653d77e983edc2aa29b8497d5d6508 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 10 Oct 2008 11:11:55 +0000
Subject: [PATCH] a more compact showtree

---
 Ledger/Utils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ledger/Utils.hs b/Ledger/Utils.hs
index ed4a56b93..ab3510f67 100644
--- a/Ledger/Utils.hs
+++ b/Ledger/Utils.hs
@@ -121,7 +121,7 @@ treeany f t = (f $ root t) || (any (treeany f) $ branches t)
 -- treedropall -- do this repeatedly.
 
 showtree :: Show a => Tree a -> String
-showtree = drawTree . treemap show
+showtree = unlines . filter (containsRegex (mkRegex "[^ |]")) . lines . drawTree . treemap show
 
 -- debugging