From b91ac53749d1a40abebad11175915fe65c14279f Mon Sep 17 00:00:00 2001
From: Gleb Popov <6yearold@gmail.com>
Date: Fri, 10 Oct 2025 18:08:33 +0300
Subject: [PATCH] Print correct message in the 'delete branch' dialog

---
 app/GitBrunch.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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