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

comment fixes

Browse Source
This commit is contained in:
Simon Michael 2016-08-08 07:22:17 -07:00
parent b991103bcc
commit b84e366f06
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-lib/Hledger/Data/Account.hs
View File

@ -52,9 +52,10 @@ nullacct = Account
, aboring = False , aboring = False
} }
-- | Derive 1. an account tree and 2. their balances from a list of postings. -- | Derive 1. an account tree and 2. their total changes from a list of postings.
-- (ledger's core feature). The accounts are returned in a list, but -- (ledger's core feature). The accounts are returned in a list, but
-- retain their tree structure; the first one is the root of the tree. --- also reference each other as a tree structure; the first account is
--- the root of the tree.
accountsFromPostings :: [Posting] -> [Account] accountsFromPostings :: [Posting] -> [Account]
accountsFromPostings ps = accountsFromPostings ps =
let let

2
hledger-lib/Hledger/Data/Ledger.hs
View File

@ -39,7 +39,7 @@ nullledger = Ledger {
-- | Filter a journal's transactions with the given query, then derive -- | Filter a journal's transactions with the given query, then derive
-- a ledger containing the chart of accounts and balances. If the -- a ledger containing the chart of accounts and balances. If the
-- query includes a depth limit, that will affect the this ledger's -- query includes a depth limit, that will affect the ledger's
-- journal but not the ledger's account tree. -- journal but not the ledger's account tree.
ledgerFromJournal :: Query -> Journal -> Ledger ledgerFromJournal :: Query -> Journal -> Ledger
ledgerFromJournal q j = nullledger{ljournal=j'', laccounts=as} ledgerFromJournal q j = nullledger{ljournal=j'', laccounts=as}