From c572addaa05836b9df876ae0a8b7a92faaa5d7d9 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 27 Jun 2011 13:27:26 +0000
Subject: [PATCH] fix warnings

---
 hledger/Hledger/Cli/Register.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/Register.hs b/hledger/Hledger/Cli/Register.hs
index 821fee46c..46db2a7e5 100644
--- a/hledger/Hledger/Cli/Register.hs
+++ b/hledger/Hledger/Cli/Register.hs
@@ -180,7 +180,7 @@ datedisplayexpr = do
 -- Similar to "postingRegisterReport" except it uses matchers and
 -- per-transaction report items like "accountRegisterReport".
 journalRegisterReport :: [Opt] -> Journal -> Matcher -> AccountRegisterReport
-journalRegisterReport opts j@Journal{jtxns=ts} m = (totallabel, items)
+journalRegisterReport _ Journal{jtxns=ts} m = (totallabel, items)
    where
      ts' = sortBy (comparing tdate) $ filter (not . null . tpostings) $ map (filterTransactionPostings m) ts
      items = reverse $ accountRegisterReportItems m MatchNone nullmixedamt (+) ts'
@@ -228,7 +228,7 @@ accountRegisterReport opts j m thisacctmatcher = (label, items)
 -- and balance summing function.
 accountRegisterReportItems :: Matcher -> Matcher -> MixedAmount -> (MixedAmount -> MixedAmount -> MixedAmount) -> [Transaction] -> [AccountRegisterReportItem]
 accountRegisterReportItems _ _ _ _ [] = []
-accountRegisterReportItems matcher thisacctmatcher bal sumfn (t@Transaction{tpostings=ps}:ts) =
+accountRegisterReportItems matcher thisacctmatcher bal sumfn (t:ts) =
     case i of Just i' -> i':is
               Nothing -> is
     where