Ensure dialog closes after Tx send

This commit is contained in:
Rene Vergara 2024-07-10 13:48:54 -05:00
parent c69d4f9974
commit 96c9df571e
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

View file

@ -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 $