simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-27 12:24:43 +03:00
Code Issues Projects Releases Wiki Activity

lib: add some debug output for market prices (#453)

Browse Source
This commit is contained in:
Simon Michael 2016-12-30 11:15:03 -08:00
parent 547e6d5438
commit ce8046bdb4
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
hledger-lib/Hledger/Reports/BalanceReport.hs
View File

@ -30,6 +30,7 @@ import Data.List (sort)
import Data.Maybe
import Data.Time.Calendar
import Test.HUnit
import qualified Data.Text as T
import Hledger.Data
import Hledger.Read (mamountp')
@ -148,8 +149,10 @@ balanceReportValue :: Journal -> Day -> BalanceReport -> BalanceReport
balanceReportValue j d r = r'
where
(items,total) = r
r' = dbg8 "balanceReportValue"
([(n, n', i, mixedAmountValue j d a) |(n,n',i,a) <- items], mixedAmountValue j d total)
r' =
dbg9 "known market prices" (jmarketprices j) `seq`
dbg8 "balanceReportValue"
([(n, n', i, mixedAmountValue j d a) |(n,n',i,a) <- items], mixedAmountValue j d total)
mixedAmountValue :: Journal -> Day -> MixedAmount -> MixedAmount
mixedAmountValue j d (Mixed as) = Mixed $ map (amountValue j d) as
@ -172,11 +175,11 @@ amountValue j d a =
-- applicable market price directive before this date).
commodityValue :: Journal -> Day -> CommoditySymbol -> Maybe Amount
commodityValue j d c
| null applicableprices = Nothing
| otherwise = Just $ mpamount $ last applicableprices
| null applicableprices = dbg Nothing
| otherwise = dbg $ Just $ mpamount $ last applicableprices
where
applicableprices = [p | p <- sort $ jmarketprices j, mpcommodity p == c, mpdate p <= d]
dbg = dbg8 ("using market price for "++T.unpack c)