From 2aedd32690a69536d020bf5c8dffaf8f0a3f09b6 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 17 Jul 2011 15:54:21 +0000 Subject: [PATCH] journalAccountNamesUsed should be sorted --- hledger-lib/Hledger/Data/Journal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs index cd6aed069..717df00a1 100644 --- a/hledger-lib/Hledger/Data/Journal.hs +++ b/hledger-lib/Hledger/Data/Journal.hs @@ -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