From 8754c79079faa13dbd657982754b2a5c5aa769bb Mon Sep 17 00:00:00 2001 From: "Rene Vergara A." Date: Mon, 3 Jun 2024 22:10:30 -0400 Subject: [PATCH] rvv041 - Code Optimization - Some comments removed --- src/Zenith/CLI.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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