lib: showAmountCost(B): drop leading whitespace

hledger-lib/Hledger/Data/Amount.hs

@@ -673,11 +673,11 @@ showAmountB
     space = if not (T.null comm) && ascommodityspaced style then WideBuilder (TB.singleton ' ') 1 else mempty
     cost = if displayCost then showAmountCostB afmt a else mempty
 
--- Show an amount's cost as @ UNITCOST or @@ TOTALCOST.
+-- Show an amount's cost as @ UNITCOST or @@ TOTALCOST, plus a leading space, or "" if there's no cost.
 showAmountCost :: Amount -> String
 showAmountCost = wbUnpack . showAmountCostB defaultFmt
 
--- Show an amount's cost as @ UNITCOST or @@ TOTALCOST (builder version).
+-- showAmountCost, efficient builder version.
 showAmountCostB :: AmountFormat -> Amount -> WideBuilder
 showAmountCostB afmt amt = case acost amt of
   Nothing             -> mempty

hledger-lib/Hledger/Data/Journal.hs

@@ -1178,7 +1178,7 @@ pivotComponent fieldortagname p
   | fieldortagname == "acct"        = paccount p
   | fieldortagname `elem` commnames = case map acommodity $ amounts $ pamount p of [s] -> s; _ -> unknown
   | fieldortagname == "amt"         = case amounts $ pamount p of [a] -> T.pack $ show $ aquantity a; _ -> unknown
-  | fieldortagname == "cost"        = case amounts $ pamount p of [a@Amount{acost=Just _}] -> T.pack $ 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 = tagvalue
   | otherwise = unknown
   where

hledger/test/pivot.test

@@ -201,9 +201,9 @@ $ hledger -f- bal -Y --pivot=cost
 Balance changes in 2025:
 
         ||            2025 
-=========++=================
+========++=================
         ||           $-210 
  @ $10  ||             1 A 
  @ $100 ||             2 B 
----------++-----------------
+--------++-----------------
         || $-210, 1 A, 2 B