From 0142ea90ae0b599d22a40efa27b31e33657317d3 Mon Sep 17 00:00:00 2001
From: "Rene Vergara A." <rvergara59@protonmail.com>
Date: Thu, 5 Sep 2024 11:31:51 -0400
Subject: [PATCH] rvv041 - Address Book - in progress....

---
 src/Zenith/GUI.hs | 14 +++++---------
 zcash-haskell     |  2 +-
 2 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/src/Zenith/GUI.hs b/src/Zenith/GUI.hs
index 0adffef..49bbdeb 100644
--- a/src/Zenith/GUI.hs
+++ b/src/Zenith/GUI.hs
@@ -1307,20 +1307,16 @@ handleEvent wenv node model evt =
            a
       case res of
         Nothing -> return $ ShowMessage "Error saving the AddressBook entry..."
-        Just _ -> loadABList config (model ^. network)
+        Just _ ->  do  
+                    model $ _abaddressList .~ (getAdrBook pool n) & 
+                    return $
+
     -- |
     -- |
     -- |    
     loadABList :: Config -> ZcashNet -> IO AppEvent
     loadABList config n = do
-      let dbPath =  c_dbPath config
-      pool <- runNoLoggingT $ initPool dbPath
-      abList <- getAdrBook pool n
-      if isEmpty abList
-        then  return $ ShowMessage "Error loading the AddressBook list..."
-        else  do
-          model & abaddressList ?~ abList
-          return $ ShowMessage "AddressBook loaded successfully!!!"
+      pool <- runNoLoggingT $ initPool $ c_dbPath config
 
 scanZebra :: T.Text -> T.Text -> Int -> (AppEvent -> IO ()) -> IO ()
 scanZebra dbPath zHost zPort sendMsg = do
diff --git a/zcash-haskell b/zcash-haskell
index 0b2fae2..ce19e17 160000
--- a/zcash-haskell
+++ b/zcash-haskell
@@ -1 +1 @@
-Subproject commit 0b2fae2b5db6878b7669d639a5cb8c73b986906e
+Subproject commit ce19e174cc636f1e9fce9114875ab0cb1df10213