From fdf4955007d69e4ebe5d26a2798ed2130f082d04 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 16 Oct 2008 09:22:41 +0000
Subject: [PATCH] fix a bug with account name eliding in balance report

---
 BalanceCommand.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/BalanceCommand.hs b/BalanceCommand.hs
index f265b99a3..102128b7c 100644
--- a/BalanceCommand.hs
+++ b/BalanceCommand.hs
@@ -171,7 +171,7 @@ showAccountTreeWithBalances matchedacctnames =
       showAccountTreeWithBalances' matchedacctnames indentlevel prefix (Node (Account fullname _ bal) subs) =
           if isboringparent then showsubswithprefix else showacct ++ showsubswithindent
           where
-            showsubswithprefix = showsubs indentlevel (fullname++":")
+            showsubswithprefix = showsubs indentlevel (prefix++leafname++":")
             showsubswithindent = showsubs (indentlevel+1) ""
             showsubs i p = concatMap (showAccountTreeWithBalances' matchedacctnames i p) subs
             showacct = showbal ++ "  " ++ indent ++ prefix ++ leafname ++ "\n"