;lib: valuation debug output note
This commit is contained in:
		
							parent
							
								
									fd00d9c1cc
								
							
						
					
					
						commit
						bf2fe3d88e
					
				| @ -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 | ||||
| 
 | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user