From 88f3f6fc41bdc01a4840818a08f7c9fb495f25e6 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 9 Jun 2019 17:39:46 -0700
Subject: [PATCH] print: also canonicalise balance assertions' amount style
 (fix #1042)

---
 hledger-lib/Hledger/Data/Journal.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs
index bca59a40f..168ec04b1 100644
--- a/hledger-lib/Hledger/Data/Journal.hs
+++ b/hledger-lib/Hledger/Data/Journal.hs
@@ -914,7 +914,9 @@ journalApplyCommodityStyles j@Journal{jtxns=ts, jmarketprices=mps} = j''
       styles = journalCommodityStyles j'
       j'' = j'{jtxns=map fixtransaction ts, jmarketprices=map fixmarketprice mps}
       fixtransaction t@Transaction{tpostings=ps} = t{tpostings=map fixposting ps}
-      fixposting p@Posting{pamount=a} = p{pamount=styleMixedAmount styles a}
+      fixposting p = p{pamount=styleMixedAmount styles $ pamount p
+                      ,pbalanceassertion=fixbalanceassertion <$> pbalanceassertion p}
+      fixbalanceassertion ba = ba{baamount=styleAmount styles $ baamount ba}
       fixmarketprice mp@MarketPrice{mpamount=a} = mp{mpamount=styleAmount styles a}
 
 -- | Get all the amount styles defined in this journal, either declared by