diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -97,6 +97,7 @@
 ## Release
 
 - Bump version in `package.yaml` and `default.nix`
+- `stack build`
 - Create a commit `v0.0.0`
 - Create a tag `v0.0.0`
 - Push commit and push tag
diff --git a/app/GitBrunch.hs b/app/GitBrunch.hs
--- a/app/GitBrunch.hs
+++ b/app/GitBrunch.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE LambdaCase #-}
-{-# LANGUAGE RankNTypes #-}
 module GitBrunch
   ( main
   )
@@ -111,8 +110,8 @@
 appDraw :: State -> [Widget Name]
 appDraw state =
   drawDialog state
-    : [ C.vCenter $ padAll 1 $ vBox
-          (maxWidth 200 <$> [branchLists, filterEdit, padding, instructions])
+    : [ C.vCenter $ padAll 1 $ maxWidth 200 $ vBox
+          [branchLists, filterEdit, padding, instructions]
       ]
  where
   padding = str " "
@@ -137,15 +136,10 @@
 
 drawFilter :: State -> Widget Name
 drawFilter state =
-  withBorderStyle BS.unicodeBold
-    $   B.border
-    $   padLeft (Pad 1)
-    $   vLimit 1
-    $   label
-    <+> editor
+  withBorderStyle BS.unicodeBold $ B.border $ vLimit 1 $ label <+> editor
  where
   editor = E.renderEditor (str . unlines) True (state ^. filterL)
-  label  = str "Filter: "
+  label  = str " Filter: "
 
 drawDialog :: State -> Widget n
 drawDialog state = case _dialog state of
@@ -171,9 +165,10 @@
   drawTitle = attr . str . map toUpper . show . L.listName
 
 drawListElement :: Bool -> Branch -> Widget Name
-drawListElement _ branch =
-  padLeft (Pad 1) $ padRight Max $ highlight branch $ str $ show branch
+drawListElement isListFocussed branch =
+  maxPadding $ highlight branch $ str $ " " <> show branch
  where
+  maxPadding = if isListFocussed then padRight Max else id
   highlight (BranchCurrent _)        = withAttr attrBranchCurrent
   highlight b | Git.isCommonBranch b = withAttr attrBranchCommon
   highlight _                        = id
diff --git a/git-brunch.cabal b/git-brunch.cabal
--- a/git-brunch.cabal
+++ b/git-brunch.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: a6badf00f36b9a989355a39bf5abb910c22c370ff5e0e3725145be8fb2a953ca
+-- hash: 643cd917a331afd2c5c769ae081cd6f382eec74c30471e6b5b3ac9315c3df792
 
 name:           git-brunch
-version:        1.4.2.0
+version:        1.4.4.0
 synopsis:       git checkout command-line tool
 description:    Please see the README on GitHub at <https://github.com/andys8/git-brunch>
 category:       Git
@@ -50,11 +50,11 @@
     , vector
     , vty
   if flag(static)
-    ghc-options: -static -threaded -rtsopts -with-rtsopts=-N -Wall
+    ghc-options: -static -threaded -rtsopts -with-rtsopts=-N -Wall -O2
     cc-options: -static
     ld-options: -static -pthread
   else
-    ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall
+    ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall -O2
   default-language: Haskell2010
 
 test-suite git-brunch-test