From 54990c6a5bbebde33392b5ff638fad36b9783a96 Mon Sep 17 00:00:00 2001 From: "Restyled.io" Date: Thu, 9 Jan 2025 18:09:36 +0000 Subject: [PATCH] Restyled by fourmolu --- src/swarm-tui/Swarm/TUI/Model.hs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/src/swarm-tui/Swarm/TUI/Model.hs b/src/swarm-tui/Swarm/TUI/Model.hs index 490e09c75..be7cdd558 100644 --- a/src/swarm-tui/Swarm/TUI/Model.hs +++ b/src/swarm-tui/Swarm/TUI/Model.hs @@ -164,12 +164,11 @@ data SwarmKeyDispatchers = SwarmKeyDispatchers , robotDispatcher :: SwarmKeyDispatcher } - -- | This encapsulates both game and UI state for an actively-playing scenario. -data PlayState = PlayState { - _gameState :: GameState +data PlayState = PlayState + { _gameState :: GameState , _somethingState :: () -} + } -------------------------------------------------- -- Lenses for PlayState @@ -182,7 +181,6 @@ gameState :: Lens' PlayState GameState -- | The 'UIGameplay' record. somethingState :: Lens' PlayState () - -- ---------------------------------------------------------------------------- -- APPSTATE -- -- ---------------------------------------------------------------------------- @@ -330,11 +328,11 @@ keyConfig :: Lens' KeyEventHandlingState (KeyConfig SwarmEvent) -- | Dispatchers that will call handler on key combo. keyDispatchers :: Lens' KeyEventHandlingState SwarmKeyDispatchers - -------------------------------------------------- -- Lenses for AppState playState :: Functor f => (PlayState -> f PlayState) -> AppState -> f AppState + makeLensesNoSigs ''AppState -- | The 'UIState' record.