From 00b006b3806119d7effdc9ae46816d0e3d2a2983 Mon Sep 17 00:00:00 2001 From: "Restyled.io" Date: Mon, 20 Jun 2022 01:04:56 +0000 Subject: [PATCH] Restyled by fourmolu --- src/Swarm/Game/Step.hs | 2 +- src/Swarm/TUI/Controller.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Swarm/Game/Step.hs b/src/Swarm/Game/Step.hs index 5ec5c059e..d3aa3ae4c 100644 --- a/src/Swarm/Game/Step.hs +++ b/src/Swarm/Game/Step.hs @@ -1360,7 +1360,7 @@ execConst c vs s k = do [VBool b] -> return $ Out (VBool (not b)) s k _ -> badConst Neg -> case vs of - [VInt n] -> return $ Out (VInt (-n)) s k + [VInt n] -> return $ Out (VInt (- n)) s k _ -> badConst Eq -> returnEvalCmp Neq -> returnEvalCmp diff --git a/src/Swarm/TUI/Controller.hs b/src/Swarm/TUI/Controller.hs index 84c47057e..6a73e5079 100644 --- a/src/Swarm/TUI/Controller.hs +++ b/src/Swarm/TUI/Controller.hs @@ -225,8 +225,8 @@ setFocus s name = continue $ s & uiState . uiFocusRing %~ focusSetCurrent name -- | Set the game to Running if it was auto paused maybeUnpause :: AppState -> AppState -> AppState maybeUnpause s - | s ^. gameState . runStatus == AutoPause = gameState . runStatus .~ Running - | otherwise = id + | s ^. gameState . runStatus == AutoPause = gameState . runStatus .~ Running + | otherwise = id toggleModal :: AppState -> ModalType -> EventM Name AppState toggleModal s mt = do