ui: fix -fvty build error

2009-11-25 15:33:41 +00:00 · 2009-11-25 15:33:41 +00:00 · 8b47aeb146
commit 8b47aeb146
parent 92c87f088a
1 changed files with 1 additions and 1 deletions
--- a/Commands/UI.hs
+++ b/Commands/UI.hs
@ -50,7 +50,7 @@ data Screen = BalanceScreen     -- ^ like hledger balance, shows accounts
 ui :: [Opt] -> [String] -> Ledger -> IO ()
 ui opts args l = do
  v <- mkVty
-  DisplayBounds w h <- display_bounds $ terminal v
+  DisplayRegion w h <- display_bounds $ terminal v
  let opts' = SubTotal:opts
  let a = enter BalanceScreen
          AppState {