rvv041 - AddressBook - empty Address book database case
This commit is contained in:
parent
06b2cd9222
commit
a3a8bb1eaa
1 changed files with 4 additions and 1 deletions
|
@ -1256,7 +1256,10 @@ handleEvent wenv node model evt =
|
|||
CheckValidAddress a ->
|
||||
[Model $ model & abAddressValid .~ isRecipientValid a]
|
||||
CheckValidDescrip a -> [Model $ model & abDescripValid .~ isValidString a]
|
||||
ShowAdrBook -> [Model $ model & showAdrBook .~ True & menuPopup .~ False]
|
||||
ShowAdrBook ->
|
||||
if null (model ^. abaddressList)
|
||||
then [Model $ model & newAdrBkEntry .~ True & menuPopup .~ False]
|
||||
else [Model $ model & showAdrBook .~ True & menuPopup .~ False]
|
||||
CloseAdrBook -> [Model $ model & showAdrBook .~ False]
|
||||
NewAdrBkEntry ->
|
||||
[Model $ model & newAdrBkEntry .~ True & menuPopup .~ False]
|
||||
|
|
Loading…
Reference in a new issue