From 18e3e4d34bd6b4212dc050f2acabb981296acdf2 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 15 Oct 2008 21:11:06 +0000
Subject: [PATCH] simplify

---
 RegisterCommand.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/RegisterCommand.hs b/RegisterCommand.hs
index 9757edce5..20e3665fd 100644
--- a/RegisterCommand.hs
+++ b/RegisterCommand.hs
@@ -20,7 +20,7 @@ showTransactionsWithBalances opts args l =
         where
           ts = filter matchtxn $ ledgerTransactions l
           matchtxn (Transaction _ _ desc acct _) = matchLedgerPatterns False apats acct
-          pats@(apats,dpats) = parseAccountDescriptionArgs args
+          apats = fst $ parseAccountDescriptionArgs args
           startingbalance = nullamt
           showTransactionsWithBalances' :: [Transaction] -> Transaction -> Amount -> [String]
           showTransactionsWithBalances' [] _ _ = []