diff --git a/app/GitBrunch.hs b/app/GitBrunch.hs
index 3c11a0d..3dd36ee 100644
--- a/app/GitBrunch.hs
+++ b/app/GitBrunch.hs
@@ -221,7 +221,9 @@ appHandleEventMain e =
 
     confirmDelete :: Maybe Branch -> EventM Name State ()
     confirmDelete (Just (BranchCurrent _)) = pure ()
-    confirmDelete (Just _) = dialogL ?= createDialog GitDeleteBranch
+    confirmDelete (Just _) = do
+      gitCommandL .= GitDeleteBranch
+      dialogL ?= createDialog GitDeleteBranch
     confirmDelete Nothing = pure ()
 
     fetch = do