From e4c76acb12a01930dc56f44aa2e6c2cc90c190ec Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 23 Jul 2013 16:47:54 -0700
Subject: [PATCH] balancesheet: don't bother showing equity, it won't be useful
 for most of us

---
 MANUAL.md                           | 4 ++--
 hledger/Hledger/Cli/Balancesheet.hs | 5 +----
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/MANUAL.md b/MANUAL.md
index caed1f70a..06bd8d42b 100644
--- a/MANUAL.md
+++ b/MANUAL.md
@@ -729,8 +729,8 @@ currently assumes that you have top-level accounts named `income` (or
 
 This command displays a simple
 [balance sheet](http://en.wikipedia.org/wiki/Balance_sheet). It currently
-assumes that you have top-level accounts named `asset`, `liability` and
-`equity` (plural forms also allowed.)
+assumes that you have top-level accounts named `asset` and `liability`
+(plural forms also allowed.)
 
 #### cashflow
 
diff --git a/hledger/Hledger/Cli/Balancesheet.hs b/hledger/Hledger/Cli/Balancesheet.hs
index f10a35a95..1bb3c688f 100644
--- a/hledger/Hledger/Cli/Balancesheet.hs
+++ b/hledger/Hledger/Cli/Balancesheet.hs
@@ -27,16 +27,13 @@ balancesheet CliOpts{reportopts_=ropts} j = do
   let q = queryFromOpts d (withoutBeginDate ropts)
       assetreport@(_,assets)          = accountsReport ropts (And [q, journalAssetAccountQuery j]) j
       liabilityreport@(_,liabilities) = accountsReport ropts (And [q, journalLiabilityAccountQuery j]) j
-      equityreport@(_,equity)         = accountsReport ropts (And [q, journalEquityAccountQuery j]) j
-      total = assets + liabilities + equity
+      total = assets + liabilities
   LT.putStr $ [lt|Balance Sheet
 
 Assets:
 #{unlines $ accountsReportAsText ropts assetreport}
 Liabilities:
 #{unlines $ accountsReportAsText ropts liabilityreport}
-Equity:
-#{unlines $ accountsReportAsText ropts equityreport}
 
 Total:
 --------------------