;valuation: fix hledger-ui (#1239, #1253)

This commit is contained in:
Simon Michael 2020-06-19 15:10:12 -07:00
parent fae1cc262e
commit 3ade9750d3

View File

@ -73,7 +73,7 @@ tsDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
where
maincontent = Widget Greedy Greedy $ do
let
prices = journalPriceOracle j
prices = journalPriceOracle (infer_value_ ropts) j
styles = journalCommodityStyles j
periodlast =
fromMaybe (error' "TransactionScreen: expected a non-empty journal") $ -- XXX shouldn't happen