From b3df16f217d87bb320f97cd33343b3341b81b1ee Mon Sep 17 00:00:00 2001 From: "Rene Vergara A." Date: Thu, 5 Sep 2024 13:50:52 -0400 Subject: [PATCH] rvv041 - Address Book - Entry form working partially --- src/Zenith/GUI.hs | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/src/Zenith/GUI.hs b/src/Zenith/GUI.hs index 49bbdeb..95b246d 100644 --- a/src/Zenith/GUI.hs +++ b/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