rvv041 - Address Book - in progress....

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

zcash-haskell

@@ -1 +1 @@
-Subproject commit 0b2fae2b5db6878b7669d639a5cb8c73b986906e
+Subproject commit ce19e174cc636f1e9fce9114875ab0cb1df10213