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