From d1cb9cedae4f43e2217f7cf0c5b51fab67525103 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 12 Aug 2009 06:40:01 +0000
Subject: [PATCH] fix a regex bug in showtree

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

diff --git a/Ledger/Utils.hs b/Ledger/Utils.hs
index 6591ae313..08ba220dd 100644
--- a/Ledger/Utils.hs
+++ b/Ledger/Utils.hs
@@ -209,7 +209,7 @@ treeany f t = f (root t) || any (treeany f) (branches t)
 
 -- | show a compact ascii representation of a tree
 showtree :: Show a => Tree a -> String
-showtree = unlines . filter (containsRegex "[^ |]") . lines . drawTree . treemap show
+showtree = unlines . filter (containsRegex "[^ \\|]") . lines . drawTree . treemap show
 
 -- | show a compact ascii representation of a forest
 showforest :: Show a => Forest a -> String