Vergara_Tech/zenith
Vergara_Tech/zenith
2
0
Fork 0
Code Issues 21 Pull requests Projects Releases 6 Packages Wiki Activity

Add base addressbook to GUI #102

Merged
pitmutt merged 21 commits from rvv041 into milestone3 2024-09-13 11:39:59 +00:00
Conversation 0 Commits 21 Files changed 6 +4 -7
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit b3df16f217 - Show all commits

11
src/Zenith/GUI.hs
View file

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