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

2020-06-19 15:10:12 -07:00 · 2020-06-19 15:10:12 -07:00 · 3ade9750d3
commit 3ade9750d3
parent fae1cc262e
1 changed files with 1 additions and 1 deletions
--- a/hledger-ui/Hledger/UI/TransactionScreen.hs
+++ b/hledger-ui/Hledger/UI/TransactionScreen.hs
@ -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