diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -49,9 +49,9 @@
   , _incremental   :: Bool         <?> "Allow output to be updated incrementally. Redraws the buffer for every output line, so should only be used for \
                                        \slow outputs. Implies '--show-running'."
   , _stabilization :: Maybe Int    <?> "Minimal time (milliseconds) between any file event and the next command update (default: 200)"
-  , _version       :: Bool         <?> "Print the version number"
+  , _version       :: Bool         <?> "Print the version number."
   , _help          :: Bool
-  , _debug         :: Bool         <?> "Show debug information in the lower right corner"
+  , _debug         :: Bool         <?> "Show debug information in the lower right corner."
   } deriving (Show, Generic)
 
 -- `--show-running` is not on by default because it causes a quick flickering
diff --git a/src/TUI.hs b/src/TUI.hs
--- a/src/TUI.hs
+++ b/src/TUI.hs
@@ -6,6 +6,7 @@
   ) where
 
 import Control.Monad (guard)
+import Control.Monad.State (modify)
 import Control.Monad.Trans (liftIO)
 import Data.Char (toLower)
 import Data.Text (Text)
@@ -18,13 +19,11 @@
   , BrickEvent(..)
   , EventM
   , Location (..)
-  , Next
   , Size (..)
   , Widget (..)
   , attrMap
   , availHeight
   , availWidth
-  , continue
   , customMain
   , getContext
   , getVtyHandle
@@ -180,16 +179,14 @@
 stepApp ::
      Options
   -> IO () -- ^ Update request
-  -> AppState
   -> BrickEvent n TrackitEvent
-  -> EventM n (Next AppState)
-stepApp _ _ s (keyPressed 'q' -> True) = halt s
-stepApp _ updReq s (keyPressed ' ' -> True) = liftIO updReq >> continue s
-stepApp opts _ s ev = do
+  -> EventM n AppState ()
+stepApp _ _ (keyPressed 'q' -> True) = halt
+stepApp _ updReq (keyPressed ' ' -> True) = liftIO updReq
+stepApp opts _ ev = do
   vty <- getVtyHandle
   size <- liftIO $ displayBounds $ outputIface vty
-  let s' = clampState size $ stepState opts ev size s
-  continue s'
+  modify $ clampState size . stepState opts ev size
 
 stepState ::
      Options
@@ -246,7 +243,7 @@
 myApp opts updReq = App
   { appDraw         = drawApp opts
   , appHandleEvent  = stepApp opts updReq
-  , appStartEvent   = return
+  , appStartEvent   = return ()
   , appAttrMap      = const $ attrMap defAttr []
   , appChooseCursor = neverShowCursor
   }
diff --git a/trackit.cabal b/trackit.cabal
--- a/trackit.cabal
+++ b/trackit.cabal
@@ -1,5 +1,5 @@
 name:                trackit
-version:             0.7.2
+version:             0.7.3
 synopsis:            A command-line tool for live monitoring
 description:         @trackit@ is a command-line tool that listens for changes
                      in a user-supplied directory. Whenever there is a change,
@@ -43,8 +43,8 @@
                         ParseANSI
                         TUI
   build-depends:        base <5
-                      , brick >= 0.47 && < 0.61
-                          -- 0.47 adds an argument to customMain
+                      , brick >= 1.0 && == 1.1
+                          -- EventM was refactored in 1.0
                       , fsnotify <0.4
                       , microlens-platform <0.5
                       , mtl <2.3
@@ -53,8 +53,8 @@
                       , process-extras >=0.4 && <0.8
                       , stm <2.6
                       , text <1.3
-                      , time < 1.12
-                      , vty < 5.33
+                      , time < 1.13
+                      , vty < 5.37
   hs-source-dirs:       src
   default-language:     Haskell2010
   default-extensions:   BangPatterns