Restyled by fourmolu (#443)

Co-authored-by: Restyled.io <[email protected]>

Author: restyled-io[bot]

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

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