Fix build for upcoming hledger release

hpdeifel · Jun 1, 2020 · a965af4 · a965af4
1 parent 4048373
commit a965af4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Model.hs b/src/Model.hs
@@ -281,7 +281,7 @@ transactionBalanced trans = HL.isTransactionBalanced Nothing trans
 -- | Computes the sum of all postings in the transaction and inverts it
 negativeAmountSum :: HL.Transaction -> HL.MixedAmount
 negativeAmountSum trans =
-  let (rsum, _, _) = HL.transactionPostingBalances trans
+  let rsum = HL.sumPostings $ HL.realPostings trans
   in HL.divideMixedAmount (-1) rsum
 
 -- | Compare two transaction descriptions based on their number of occurences in