diff --git a/hledger-vty/Hledger/Vty/Main.hs b/hledger-vty/Hledger/Vty/Main.hs
index 6c84940e7..e04dce136 100644
--- a/hledger-vty/Hledger/Vty/Main.hs
+++ b/hledger-vty/Hledger/Vty/Main.hs
@@ -7,17 +7,17 @@ Released under GPL version 3 or later.
 
 module Hledger.Vty.Main where
 
+import Control.Monad
+import Data.List
+import Data.Maybe
+import Data.Time.LocalTime
 import Graphics.Vty
 import Safe (headDef)
 import System.Console.GetOpt
 
-import Hledger.Cli.Balance
-import Hledger.Cli.Options
-import Hledger.Cli.Print
-import Hledger.Cli.Register
-import Hledger.Cli.Utils (withJournalDo)
-import Hledger.Cli.Version (progversionstr, binaryfilename)
+import Hledger.Cli
 import Hledger.Data
+import Hledger.Utils
 import Prelude hiding (putStr, putStrLn)
 import Hledger.Utils.UTF8 (putStr, putStrLn)
 
@@ -272,7 +272,7 @@ updateData t a@AppState{aopts=opts,ajournal=j} =
     case screen a of
       BalanceScreen  -> a{abuf=lines $ balanceReportAsText opts $ balanceReport opts fspec j}
       RegisterScreen -> a{abuf=lines $ registerReportAsText opts $ registerReport opts fspec j}
-      PrintScreen    -> a{abuf=lines $ showTransactions fspec j}
+      PrintScreen    -> a{abuf=lines $ showTransactions opts fspec j}
     where fspec = optsToFilterSpec opts (currentArgs a) t
 
 backout :: LocalTime -> AppState -> AppState
diff --git a/hledger-vty/hledger-vty.cabal b/hledger-vty/hledger-vty.cabal
index f0b5be8fc..7e51c8df8 100644
--- a/hledger-vty/hledger-vty.cabal
+++ b/hledger-vty/hledger-vty.cabal
@@ -47,6 +47,6 @@ executable hledger-vty
                  -- ,regexpr >= 0.5.1
                  ,safe >= 0.2
                  -- ,split == 0.1.*
-                 -- ,time
+                 ,time
                  -- ,utf8-string >= 0.3.5 && < 0.4
-                 ,vty >= 4.6.0.1 && < 4.7
+                 ,vty >= 4.6.0.1 && < 4.8