From 2b49c4d7729520d18e78b2a8de92e85927c64fc3 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 25 Feb 2010 17:20:59 +0000
Subject: [PATCH] stats: show account tree depth

---
 Commands/Stats.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Commands/Stats.hs b/Commands/Stats.hs
index d92928f98..26bd089ee 100644
--- a/Commands/Stats.hs
+++ b/Commands/Stats.hs
@@ -38,6 +38,7 @@ showStats _ _ l today =
         ,("Transactions last 7 days", printf "%d (%0.1f per day)" tnum7 txnrate7)
 --        ,("Payees/descriptions", show $ length $ nub $ map tdescription ts)
         ,("Accounts", show $ length $ accounts l)
+        ,("Account tree depth", show $ maximum $ map (accountNameLevel.aname) $ accounts l)
         ,("Commodities", show $ length $ commodities l)
       -- Transactions this month     : %(monthtxns)s (last month in the same period: %(lastmonthtxns)s)
       -- Uncleared transactions      : %(uncleared)s