Simplify FocusTransactions handling with mapM_

ldgrp · Jan 8, 2024 · 1980535 · 1980535
1 parent c9bba8b
commit 1980535
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/up-top/src/Event.hs b/up-top/src/Event.hs
@@ -44,12 +44,10 @@ handleEvent (VtyEvent e) = do
           _ -> pure ()
         ev -> case lz ^. focus of
           FocusTransactions -> do
-            -- The id of the selected account
-            preuse (accounts . L.listSelectedElementL . to accountId) >>= \case
-              Nothing -> pure ()
-              Just aid ->
-                zoom (transactions . ix aid) $
-                  L.handleListEventVi L.handleListEvent ev
+            -- The id of the selected account, if it exists
+            preuse (accounts . L.listSelectedElementL . to accountId) >>= mapM_ (\aid ->
+              zoom (transactions . ix aid) $
+                L.handleListEventVi L.handleListEvent ev)
           FocusAccounts     -> zoom accounts $ L.handleListEventVi L.handleListEvent ev
           _                 -> pure ()
     HelpView ->