Ensure dialog closes after Tx send
This commit is contained in:
parent
c69d4f9974
commit
96c9df571e
1 changed files with 4 additions and 2 deletions
|
@ -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 $
|
||||
|
|
Loading…
Reference in a new issue