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

ui: fix -fvty build error

Browse Source
This commit is contained in:
Simon Michael 2009-11-25 15:33:41 +00:00
parent 92c87f088a
commit 8b47aeb146
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Commands/UI.hs
View File

@ -50,7 +50,7 @@ data Screen = BalanceScreen -- ^ like hledger balance, shows accounts
ui :: [Opt] -> [String] -> Ledger -> IO () ui :: [Opt] -> [String] -> Ledger -> IO ()
ui opts args l = do ui opts args l = do
v <- mkVty v <- mkVty
DisplayBounds w h <- display_bounds $ terminal v DisplayRegion w h <- display_bounds $ terminal v
let opts' = SubTotal:opts let opts' = SubTotal:opts
let a = enter BalanceScreen let a = enter BalanceScreen
AppState { AppState {