Add base addressbook to GUI #102
1 changed files with 4 additions and 7 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue