slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix failing test

Browse Source
This commit is contained in:
Simon Michael 2008-10-03 11:20:49 +00:00
parent 5ef0018001
commit 2ce3124738
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Ledger.hs
View File

@ -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