lib: drop transactionPostingBalances
This commit is contained in:
parent
0a5fa33f9d
commit
7bcc205622
@ -36,8 +36,6 @@ module Hledger.Data.Transaction (
|
|||||||
-- nonzerobalanceerror,
|
-- nonzerobalanceerror,
|
||||||
-- * date operations
|
-- * date operations
|
||||||
transactionDate2,
|
transactionDate2,
|
||||||
-- * arithmetic
|
|
||||||
transactionPostingBalances,
|
|
||||||
-- * transaction description parts
|
-- * transaction description parts
|
||||||
transactionPayee,
|
transactionPayee,
|
||||||
transactionNote,
|
transactionNote,
|
||||||
@ -334,12 +332,6 @@ balancedVirtualPostings = filter isBalancedVirtual . tpostings
|
|||||||
transactionsPostings :: [Transaction] -> [Posting]
|
transactionsPostings :: [Transaction] -> [Posting]
|
||||||
transactionsPostings = concatMap tpostings
|
transactionsPostings = concatMap tpostings
|
||||||
|
|
||||||
-- | Get the sums of a transaction's real, virtual, and balanced virtual postings.
|
|
||||||
transactionPostingBalances :: Transaction -> (MixedAmount,MixedAmount,MixedAmount)
|
|
||||||
transactionPostingBalances t = (sumPostings $ realPostings t
|
|
||||||
,sumPostings $ virtualPostings t
|
|
||||||
,sumPostings $ balancedVirtualPostings t)
|
|
||||||
|
|
||||||
-- | Check that this transaction would appear balanced to a human when displayed.
|
-- | Check that this transaction would appear balanced to a human when displayed.
|
||||||
-- On success, returns the empty list, otherwise one or more error messages.
|
-- On success, returns the empty list, otherwise one or more error messages.
|
||||||
--
|
--
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user