Ensure dialog closes after Tx send

src/Zenith/DB.hs

@@ -1390,6 +1390,22 @@ getBalance pool za = do
   let oBal = sum oAmts
   return . fromIntegral $ tBal + sBal + oBal
 
+getTransparentBalance :: ConnectionPool -> ZcashAccountId -> IO Integer
+getTransparentBalance pool za = do
+  trNotes <- getWalletUnspentTrNotes pool za
+  let tAmts = map (walletTrNoteValue . entityVal) trNotes
+  return . fromIntegral $ sum tAmts
+
+getShieldedBalance :: ConnectionPool -> ZcashAccountId -> IO Integer
+getShieldedBalance pool za = do
+  sapNotes <- getWalletUnspentSapNotes pool za
+  let sAmts = map (walletSapNoteValue . entityVal) sapNotes
+  let sBal = sum sAmts
+  orchNotes <- getWalletUnspentOrchNotes pool za
+  let oAmts = map (walletOrchNoteValue . entityVal) orchNotes
+  let oBal = sum oAmts
+  return . fromIntegral $ sBal + oBal
+
 getUnconfirmedBalance :: ConnectionPool -> ZcashAccountId -> IO Integer
 getUnconfirmedBalance pool za = do
   trNotes <- getWalletUnspentUnconfirmedTrNotes pool za

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 $