diff --git a/src/Zenith/GUI.hs b/src/Zenith/GUI.hs index fee2025..0227002 100644 --- a/src/Zenith/GUI.hs +++ b/src/Zenith/GUI.hs @@ -866,10 +866,11 @@ handleEvent wenv node model evt = ShowSend -> [Model $ model & openSend .~ True] SendTx -> case currentAccount of - Nothing -> [Event $ ShowError "No account available"] + Nothing -> [Event $ ShowError "No account available", Event CancelSend] Just acc -> case currentWallet of - Nothing -> [Event $ ShowError "No wallet available"] + Nothing -> + [Event $ ShowError "No wallet available", Event CancelSend] Just wal -> [ Producer $ sendTransaction @@ -880,6 +881,7 @@ handleEvent wenv node model evt = (model ^. sendAmount) (model ^. sendRecipient) (model ^. sendMemo) + , Event CancelSend ] CancelSend -> [ Model $