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

lib: journalCommoditiesUsed

Browse Source
This commit is contained in:
Simon Michael 2025-04-23 21:24:57 -10:00
parent 6cf40a76d1
commit 4788bd9e41
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,6 +74,7 @@ module Hledger.Data.Journal (
journalTagsUsed, journalTagsUsed,
journalTagsDeclaredOrUsed, journalTagsDeclaredOrUsed,
journalCommoditiesDeclared, journalCommoditiesDeclared,
journalCommoditiesUsed,
journalCommodities, journalCommodities,
journalDateSpan, journalDateSpan,
journalDateSpanBothDates, journalDateSpanBothDates,
@ -406,6 +407,10 @@ showJournalAmountsDebug = show.map showMixedAmountOneLine.journalPostingAmounts
journalCommoditiesDeclared :: Journal -> [CommoditySymbol] journalCommoditiesDeclared :: Journal -> [CommoditySymbol]
journalCommoditiesDeclared = M.keys . jdeclaredcommodities journalCommoditiesDeclared = M.keys . jdeclaredcommodities
-- | Sorted unique commodity symbols used in this journal.
journalCommoditiesUsed :: Journal -> [CommoditySymbol]
journalCommoditiesUsed = S.elems . S.fromList . concatMap (map acommodity . amounts) . journalPostingAmounts
-- | Sorted unique commodity symbols mentioned in this journal. -- | Sorted unique commodity symbols mentioned in this journal.
journalCommodities :: Journal -> S.Set CommoditySymbol journalCommodities :: Journal -> S.Set CommoditySymbol
journalCommodities j = journalCommodities j =