parent
4f0fa9bc34
commit
8754c79079
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue