Vergara_Tech/zenith
Vergara_Tech/zenith
2
0
Fork 0
Code Issues 32 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
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