From c461104a53b7fa115e9adb10dce3d713f2f38cea Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 1 Jul 2011 00:46:41 +0000
Subject: [PATCH] web: fix warning

---
 hledger/Hledger/Cli/Register.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/hledger/Hledger/Cli/Register.hs b/hledger/Hledger/Cli/Register.hs
index ad5707f9b..c0480dfe0 100644
--- a/hledger/Hledger/Cli/Register.hs
+++ b/hledger/Hledger/Cli/Register.hs
@@ -245,7 +245,6 @@ accountRegisterReportItems matcher thisacctmatcher bal signfn (t:ts) =
       tmatched@Transaction{tpostings=psmatched} = filterTransactionPostings matcher t
       (psthisacct,psotheracct) = case thisacctmatcher of Just m  -> partition (matchesPosting m) psmatched
                                                          Nothing -> ([],psmatched)
-      numthisaccts = length $ nub $ map paccount psthisacct
       numotheraccts = length $ nub $ map paccount psotheracct
       amt = sum $ map pamount psotheracct
       acct | isNothing thisacctmatcher = summarisePostings psmatched -- journal register