src/Zenith/GUI.hs

@@ -1307,16 +1307,13 @@ handleEvent wenv node model evt =
            a
       case res of
         Nothing -> return $ ShowMessage "Error saving the AddressBook entry..."
-        Just _ ->  do  
-                    model $ _abaddressList .~ (getAdrBook pool n) & 
-                    return $
-
+        Just _ ->  return $ ShowMessage "New Address Book entry added!!"
     -- |
     -- |
     -- |    
-    loadABList :: Config -> ZcashNet -> IO AppEvent
-    loadABList config n = do
-      pool <- runNoLoggingT $ initPool $ c_dbPath config
+--    loadABList :: Config -> ZcashNet -> IO AppEvent
+--    loadABList config n = do
+--      pool <- runNoLoggingT $ initPool $ c_dbPath config
 
 scanZebra :: T.Text -> T.Text -> Int -> (AppEvent -> IO ()) -> IO ()
 scanZebra dbPath zHost zPort sendMsg = do