From 8b47aeb1461d2a09309ec1511945bca91b572907 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 25 Nov 2009 15:33:41 +0000
Subject: [PATCH] ui: fix -fvty build error

---
 Commands/UI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Commands/UI.hs b/Commands/UI.hs
index bc10d6a2e..4b114cc85 100644
--- 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 {