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

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

Browse Source
This commit is contained in:
Simon Michael 2020-06-19 15:10:12 -07:00
parent fae1cc262e
commit 3ade9750d3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-ui/Hledger/UI/TransactionScreen.hs
View File

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