diff --git a/src/swarm-tui/Swarm/TUI/Controller.hs b/src/swarm-tui/Swarm/TUI/Controller.hs index 7d7dea5d8..2e617bb4f 100644 --- a/src/swarm-tui/Swarm/TUI/Controller.hs +++ b/src/swarm-tui/Swarm/TUI/Controller.hs @@ -348,9 +348,9 @@ handleMainEvent ev = do then -- ignore repeated keypresses continueWithoutRedraw else -- hide for two seconds - do - uiState . uiGameplay . uiHideRobotsUntil .= t + TimeSpec 2 0 - invalidateCacheEntry WorldCache + do + uiState . uiGameplay . uiHideRobotsUntil .= t + TimeSpec 2 0 + invalidateCacheEntry WorldCache -- debug focused robot MetaChar 'd' | isPaused && hasDebug -> do debug <- uiState . uiGameplay . uiShowDebug Lens.<%= not