;prices: note

[ci skip]
2024-09-19 10:17:35 +03:00 · 2019-06-01 14:54:10 -07:00 · 2019-06-01 14:54:10 -07:00 · 289891cacf
commit 289891cacf
parent 45198d3faa
1 changed files with 1 additions and 0 deletions
--- a/hledger/Hledger/Cli/Commands/Prices.hs
+++ b/hledger/Hledger/Cli/Commands/Prices.hs
@ -50,6 +50,7 @@ divideAmount' n a = a' where
    extPrecision = (1+) . floor . logBase 10 $ (realToFrac n :: Double)
    precision' = extPrecision + asprecision (astyle a)

+-- | Invert an amount's price for --invert-cost, somehow (? unclear XXX)
 invertPrice :: Amount -> Amount
 invertPrice a =
    case aprice a of