From 52957f48eb237d9b6047ec493c13113368b3e2ff Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 13 Apr 2014 08:57:55 -0700
Subject: [PATCH] fix extra/hledger-equity compilation

---
 extra/hledger-equity.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/hledger-equity.hs b/extra/hledger-equity.hs
index d2e802a9f..e4a55d78b 100755
--- a/extra/hledger-equity.hs
+++ b/extra/hledger-equity.hs
@@ -24,8 +24,8 @@ main = do
   let query = Or $ map Acct args
       ropts = defreportopts{flat_=True}
       (acctbals,_) = balanceReport ropts query j
-      balancingamt = negate $ sum $ map (\(_,_,_,b) -> b) acctbals
-      ps = [posting{paccount=a, pamount=b} | (a,_,_,b) <- acctbals]
+      balancingamt = negate $ sum $ map (\((_,_,_),b) -> b) acctbals
+      ps = [posting{paccount=a, pamount=b} | ((a,_,_),b) <- acctbals]
            ++ [posting{paccount="equity:opening balances", pamount=balancingamt}]
       txn = nulltransaction{tdate=d, tpostings=ps}
   putStr $ showTransactionUnelided txn