From 2ce3124738ed25877f8b45a6d4cae430eaa21f4b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 3 Oct 2008 11:20:49 +0000
Subject: [PATCH] fix failing test

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

diff --git a/Ledger/Ledger.hs b/Ledger/Ledger.hs
index 137fe9b7c..be8afca94 100644
--- a/Ledger/Ledger.hs
+++ b/Ledger/Ledger.hs
@@ -100,7 +100,7 @@ filterLedgerTransactions (acctpat,descpat) (RawLedger ms ps es f) =
 
 -- | List a 'Ledger' 's account names.
 accountnames :: Ledger -> [AccountName]
-accountnames l = flatten $ accountnametree l
+accountnames l = drop 1 $ flatten $ accountnametree l
 
 -- | Get the named account from a ledger.
 ledgerAccount :: Ledger -> AccountName -> Account