diff --git a/src/Swarm/TUI/Controller.hs b/src/Swarm/TUI/Controller.hs index f7e27ab99..bd1e63a30 100644 --- a/src/Swarm/TUI/Controller.hs +++ b/src/Swarm/TUI/Controller.hs @@ -423,7 +423,7 @@ handleModalEvent = \case uiState . uiGoal . listWidget .= newList GoalSummary -> handleInfoPanelEvent modalScroll (VtyEvent ev) _ -> handleInfoPanelEvent modalScroll (VtyEvent ev) - _ -> return () + _ -> handleInfoPanelEvent modalScroll (VtyEvent ev) where refreshList lw = nestEventM' lw $ handleListEventWithSeparators ev isHeader