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

;lib: valuation debug output note

Browse Source
This commit is contained in:
Simon Michael 2020-07-14 10:21:45 -07:00
parent fd00d9c1cc
commit bf2fe3d88e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -258,6 +258,8 @@ priceLookup makepricegraph d from mto =
Nothing -> Nothing Nothing -> Nothing
Just nodes -> Just nodes ->
dbg ("market price for "++intercalate " -> " (map T.unpack comms)) $ dbg ("market price for "++intercalate " -> " (map T.unpack comms)) $
-- TODO: it would be nice to include price date as part of the label
-- in PriceGraph, so we could show the dates of market prices here
Just $ product $ pathEdgeLabels g nodes -- convert to a single exchange rate Just $ product $ pathEdgeLabels g nodes -- convert to a single exchange rate
where comms = catMaybes $ map (lab g) nodes where comms = catMaybes $ map (lab g) nodes