diff --git a/rewrite-inspector.cabal b/rewrite-inspector.cabal
--- a/rewrite-inspector.cabal
+++ b/rewrite-inspector.cabal
@@ -1,5 +1,5 @@
 name: rewrite-inspector
-version: 0.1.0.7
+version: 0.1.0.8
 cabal-version: >=1.10
 build-type: Simple
 license: BSD3
@@ -82,17 +82,3 @@
     ghc-options:      -threaded
     extra-libraries:  pthread
     default-language: Haskell2010
-
--- executable clash-example
---     hs-source-dirs:   examples/clash
---     main-is:          Main.hs
---     build-depends:    base >= 4.3.1.0  && <5,
---                       prettyprinter >= 1.2.0.1  && < 2.0,
---                       binary        >= 0.8.5    && < 0.11,
---
---                       clash-lib     >= 0.7.1    && < 1.0,
---                       rewrite-inspector -any
---
---     ghc-options:      -threaded
---     extra-libraries:  pthread
---     default-language: Haskell2010
diff --git a/src/BrickUI.hs b/src/BrickUI.hs
--- a/src/BrickUI.hs
+++ b/src/BrickUI.hs
@@ -184,8 +184,8 @@
 lookupSize :: EventM Name (VizStates term -> VizStates term)
 lookupSize = do
   out    <- V.outputIface <$> B.getVtyHandle
-  (w, h) <- V.displayBounds out
-  return $ (width .~ w) . (height .~ h)
+  bounds <- V.displayBounds out
+  return $ (width .~ fst bounds) . (height .~ snd bounds)
 
 -- | Update number of occurrences of searched string in both viewports.
 updateOcc :: Diff term => VizStates term -> VizStates term