From bf2fe3d88ec4cf74bb216fed8c632570cf6b053e Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 14 Jul 2020 10:21:45 -0700 Subject: [PATCH] ;lib: valuation debug output note --- hledger-lib/Hledger/Data/Valuation.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/hledger-lib/Hledger/Data/Valuation.hs b/hledger-lib/Hledger/Data/Valuation.hs index 3c4d701a6..956f313be 100644 --- a/hledger-lib/Hledger/Data/Valuation.hs +++ b/hledger-lib/Hledger/Data/Valuation.hs @@ -258,6 +258,8 @@ priceLookup makepricegraph d from mto = Nothing -> Nothing Just nodes -> 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 where comms = catMaybes $ map (lab g) nodes