Add base addressbook to GUI #102

Merged
pitmutt merged 21 commits from rvv041 into milestone3 2024-09-13 11:39:59 +00:00
Showing only changes of commit b3df16f217 - Show all commits

View file

@ -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