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

lib: clarify flattenAccounts

Browse Source
This commit is contained in:
Simon Michael 2015-09-02 16:20:41 -07:00
parent b8d75b7728
commit b770190942
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -169,7 +169,7 @@ pruneAccounts p = headMay . prune
-- | Flatten an account tree into a list, which is sometimes -- | Flatten an account tree into a list, which is sometimes
-- convenient. Note since accounts link to their parents/subs, the -- convenient. Note since accounts link to their parents/subs, the
-- account tree remains intact and can still be used. It's a tree/list! -- tree's structure remains intact and can still be used. It's a tree/list!
flattenAccounts :: Account -> [Account] flattenAccounts :: Account -> [Account]
flattenAccounts a = squish a [] flattenAccounts a = squish a []
where squish a as = a : Prelude.foldr squish as (asubs a) where squish a as = a : Prelude.foldr squish as (asubs a)