journalAccountNamesUsed should be sorted

This commit is contained in:
Simon Michael 2011-07-17 15:54:21 +00:00
parent a62c51eff6
commit 2aedd32690

View File

@ -109,7 +109,7 @@ journalPostings :: Journal -> [Posting]
journalPostings = concatMap tpostings . jtxns
journalAccountNamesUsed :: Journal -> [AccountName]
journalAccountNamesUsed = accountNamesFromPostings . journalPostings
journalAccountNamesUsed = sort . accountNamesFromPostings . journalPostings
journalAccountNames :: Journal -> [AccountName]
journalAccountNames = sort . expandAccountNames . journalAccountNamesUsed