fix: correct balance calculation for VK

CHANGELOG.md

@@ -11,6 +11,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 - RPC
 	- `importvk`
+- TUI
+	- Import viewing keys
+- GUI
+	- Import viewing keys
 
 ### Changed
 

src/Zenith/Core.hs

@@ -395,8 +395,10 @@ importViewingKey pool name znet vk bh = do
           case acc of
             Nothing -> return $ Left "Failed to save VK account"
             Just acc' -> do
-              _ <- createWalletAddress "Default" 0 znet External acc'
+              defAddr <- createWalletAddress "Default" 0 znet External acc'
-              _ <- createWalletAddress "Change" 0 znet Internal acc'
+              chgAddr <- createWalletAddress "Change" 0 znet Internal acc'
+              _ <- saveAddress pool defAddr
+              _ <- saveAddress pool chgAddr
               return $ Right $ fromSqlKey (entityKey acc')
         IncomingVk ivk -> do
           acc1 <-
@@ -414,8 +416,10 @@ importViewingKey pool name znet vk bh = do
           case acc1 of
             Nothing -> return $ Left "Failed to save VK account"
             Just acc1' -> do
-              _ <- createWalletAddress "Default" 0 znet External acc1'
+              defAddr <- createWalletAddress "Default" 0 znet External acc1'
-              _ <- createWalletAddress "Change" 0 znet Internal acc1'
+              chgAddr <- createWalletAddress "Change" 0 znet Internal acc1'
+              _ <- saveAddress pool defAddr
+              _ <- saveAddress pool chgAddr
               return $ Right $ fromSqlKey $ entityKey acc1'
     else return $ Left "Viewing key is not for the current network"
 

zenith.cabal

@@ -1,6 +1,6 @@
 cabal-version:    3.0
 name:             zenith
-version:          0.8.0.0-beta
+version:          0.9.0.0-beta
 license:          MIT
 license-file:     LICENSE
 author:           Rene Vergara