From 061d105fed498a5b2d3c84a7edb753a6350b82f2 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 29 Sep 2025 19:31:49 -1000
Subject: [PATCH] dev:Hledger.Data.Journal: fix a recent ghc 9.6 / old base
 breakage

---
 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 1dedaa782..f260a8d5b 100644
--- a/hledger-lib/Hledger/Data/Journal.hs
+++ b/hledger-lib/Hledger/Data/Journal.hs
@@ -1167,7 +1167,7 @@ pivotComponent fieldortagname p
   | fieldortagname == "cost"        = case amounts $ pamount p of [a@Amount{acost=Just _}] -> T.pack $ lstrip $ showAmountCost a; _ -> unknown
   | Just (_, tagvalue) <- postingFindTag fieldortagname p =
       if fieldortagname == "type"
-      then either (const tagvalue) T.show $ parseAccountType True tagvalue
+      then either (const tagvalue) (T.pack . show) $ parseAccountType True tagvalue
       else tagvalue
   | otherwise = unknown
   where