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

dev:Hledger.Data.Journal: fix a recent ghc 9.6 / old base breakage

Browse Source
This commit is contained in:
Simon Michael 2025-09-29 19:31:49 -10:00
parent 2f007c93d2
commit 061d105fed
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1167,7 +1167,7 @@ pivotComponent fieldortagname p
| fieldortagname == "cost" = case amounts $ pamount p of [a@Amount{acost=Just _}] -> T.pack $ lstrip $ showAmountCost a; _ -> unknown | fieldortagname == "cost" = case amounts $ pamount p of [a@Amount{acost=Just _}] -> T.pack $ lstrip $ showAmountCost a; _ -> unknown
| Just (_, tagvalue) <- postingFindTag fieldortagname p = | Just (_, tagvalue) <- postingFindTag fieldortagname p =
if fieldortagname == "type" if fieldortagname == "type"
then either (const tagvalue) T.show $ parseAccountType True tagvalue then either (const tagvalue) (T.pack . show) $ parseAccountType True tagvalue
else tagvalue else tagvalue
| otherwise = unknown | otherwise = unknown
where where