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

rvv041 - Address Book - Entry form working partially

Browse source
This commit is contained in:
Rene V. Vergara A. 2024-09-05 13:50:52 -04:00
parent 0142ea90ae
commit b3df16f217
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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