diff --git a/src/Zenith/CLI.hs b/src/Zenith/CLI.hs index f2f23bd..491675c 100644 --- a/src/Zenith/CLI.hs +++ b/src/Zenith/CLI.hs @@ -1105,11 +1105,8 @@ appEvent (BT.VtyEvent e) = do BT.modify $ set dialogBox AdrBookForm -- Show AddressBook entry data V.EvKey V.KEnter [] -> do --- case L.listSelectedElement $ s ^. abAddresses of --- Just (_, a) -> do - BT.modify $ set displayBox AdrBookEntryDisplay --- _ -> do ---q BT.modify $ set dialogBox Blank + BT.modify $ set displayBox AdrBookEntryDisplay + -- Process any other event ev -> BT.zoom abAddresses $ L.handleListEvent ev -- Process new address book entry