diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -46,7 +46,7 @@
 
 ### [Nix](https://nixos.org/nix)
 
-#### Install
+#### Install with nix-env
 
 ```sh
 nix-env -f "<nixpkgs>" -iA haskellPackages.git-brunch
@@ -94,3 +94,8 @@
 - Update release description
 - `stack upload .`
 - Update [AUR](https://aur.archlinux.org/cgit/aur.git/tree/PKGBUILD?h=git-brunch#n3)
+
+## Related projects
+
+- [`git-gone`](https://github.com/lunaryorn/git-gone): Lists or removes "gone" branches, that is, local branches which used to have an upstream branch on a remote which is now removed.
+- [`lazygit`](https://github.com/jesseduffield/lazygit): Terminal UI for git commands
diff --git a/app/GitBrunch.hs b/app/GitBrunch.hs
--- a/app/GitBrunch.hs
+++ b/app/GitBrunch.hs
@@ -6,25 +6,25 @@
   )
 where
 
-import           Brick.Main                               ( halt
-                                                          , continue
-                                                          , suspendAndResume
-                                                          )
-import           Brick.Themes                             ( themeToAttrMap )
+import           Brick.Main                     ( halt
+                                                , continue
+                                                , suspendAndResume
+                                                )
+import           Brick.Themes                   ( themeToAttrMap )
 import           Brick.Types
 import           Brick.Widgets.Core
 import           Control.Monad
 import           Data.Char
 import           Data.List
-import           Data.Maybe                               ( fromMaybe )
-import           Graphics.Vty                      hiding ( update )
-import           Lens.Micro                               ( (^.)
-                                                          , (.~)
-                                                          , (&)
-                                                          , Lens'
-                                                          , lens
-                                                          , over
-                                                          )
+import           Data.Maybe                     ( fromMaybe )
+import           Graphics.Vty            hiding ( update )
+import           Lens.Micro                     ( (^.)
+                                                , (.~)
+                                                , (&)
+                                                , Lens'
+                                                , lens
+                                                , over
+                                                )
 import           System.Exit
 import qualified Brick.Main                    as M
 import qualified Brick.Widgets.Border          as B
@@ -244,7 +244,7 @@
 createDialog :: GitCommand -> D.Dialog DialogOption
 createDialog cmd = D.dialog (Just title) (Just (0, choices)) 80
  where
-  choices = [("Cancel", Cancel), (btnText $ show cmd, Confirm)]
+  choices = [(btnText $ show cmd, Confirm), ("Cancel", Cancel)]
   title   = map toUpper $ show cmd
   btnText (x : xs) = toUpper x : xs
   btnText x        = x
diff --git a/git-brunch.cabal b/git-brunch.cabal
--- a/git-brunch.cabal
+++ b/git-brunch.cabal
@@ -1,13 +1,13 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.31.2.
+-- This file has been generated from package.yaml by hpack version 0.33.0.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: d318a782db89bc0b4a6bdc40133edcf04bcf8a4a3c8085585b42c27a4766e31f
+-- hash: d34febe8818f8646624200a52e8dd2e6088e6e11ab4ad0939aa2ad5153fd3564
 
 name:           git-brunch
-version:        1.3.0.0
+version:        1.3.1.0
 synopsis:       git checkout command-line tool
 description:    Please see the README on GitHub at <https://github.com/andys8/git-brunch#readme>
 category:       Git