rvv041 - Address Book - Entry form working partially
This commit is contained in:
parent
0142ea90ae
commit
b3df16f217
1 changed files with 4 additions and 7 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue