rvv041 - Bug - New address book entry not displaying when address buok
list is empty Fixed -> RefreshAddressBook function reviwed and corrected
This commit is contained in:
parent
ddbd08d474
commit
c5b7714917
1 changed files with 3 additions and 6 deletions
|
@ -1491,9 +1491,6 @@ refreshAddressBook s = do
|
||||||
L.listSelectedElement $ L.listMoveToBeginning $ s ^. abAddresses
|
L.listSelectedElement $ L.listMoveToBeginning $ s ^. abAddresses
|
||||||
return fAdd
|
return fAdd
|
||||||
Just a2 -> return $ Just a2
|
Just a2 -> return $ Just a2
|
||||||
case selAddress of
|
|
||||||
Nothing -> return s
|
|
||||||
Just (_i, a) -> do
|
|
||||||
abookList <- getAdrBook pool (s ^. network)
|
abookList <- getAdrBook pool (s ^. network)
|
||||||
let tL' = L.listReplace (Vec.fromList abookList) (Just 0) (s ^. abAddresses)
|
let tL' = L.listReplace (Vec.fromList abookList) (Just 0) (s ^. abAddresses)
|
||||||
return $ s & abAddresses .~ tL'
|
return $ s & abAddresses .~ tL'
|
||||||
|
|
Loading…
Reference in a new issue