Restyled by fourmolu (#1517)

Co-authored-by: Restyled.io <[email protected]>
swarm-game · Sep 11, 2023 · 428b9a4 · 428b9a4
1 parent f0ea55b
commit 428b9a4
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 30 deletions.
diff --git a/src/Swarm/TUI/Launch/Controller.hs b/src/Swarm/TUI/Launch/Controller.hs
@@ -147,12 +147,12 @@ handleLaunchOptionsEvent siPair = \case
         e <- use $ uiState . uiLaunchConfig . editingParams
         uiState . uiLaunchConfig . editingParams
           .= ( e
-                 { initialCode =
-                     maybe
-                       (Left $ T.pack "No solution.")
-                       (Right . Just . CodeToRun ScenarioSuggested)
-                       solution
-                 }
+                { initialCode =
+                    maybe
+                      (Left $ T.pack "No solution.")
+                      (Right . Just . CodeToRun ScenarioSuggested)
+                      solution
+                }
              )
       _ -> return ()
   Key V.KEsc -> closeModal
@@ -165,28 +165,28 @@ handleLaunchOptionsEvent siPair = \case
         Brick.zoom (controls . seedValueEditor) (handleEditorEvent ev)
         cacheValidatedSeedInput
       _ -> return ()
-  where
-    activateControl = do
-      fr <- use $ uiState . uiLaunchConfig . controls . scenarioConfigFocusRing
-      case focusGetCurrent fr of
-        Just (ScenarioConfigControl (ScenarioConfigPanelControl item)) ->
-          activateFocusedControl item
-        _ -> return ()
+ where
+  activateControl = do
+    fr <- use $ uiState . uiLaunchConfig . controls . scenarioConfigFocusRing
+    case focusGetCurrent fr of
+      Just (ScenarioConfigControl (ScenarioConfigPanelControl item)) ->
+        activateFocusedControl item
+      _ -> return ()
 
-    activateFocusedControl item = case item of
-      SeedSelector -> return ()
-      AutoPlaySelector ->
-        uiState . uiLaunchConfig . controls . autoPlayCheck %= not
-      ScriptSelector -> Brick.zoom (uiState . uiLaunchConfig . controls . fileBrowser) $ do
-        maybeSingleFile <- use maybeSelectedFile
-        configuredFB <- initFileBrowserWidget maybeSingleFile
-        fbWidget .= configuredFB
-        fbIsDisplayed .= True
-      StartGameButton -> do
-        params <- use $ uiState . uiLaunchConfig . editingParams
-        let eitherLaunchParams = toValidatedParams params
-        forM_ eitherLaunchParams $ \launchParams -> do
-          closeModal
-          startGameWithSeed siPair launchParams
+  activateFocusedControl item = case item of
+    SeedSelector -> return ()
+    AutoPlaySelector ->
+      uiState . uiLaunchConfig . controls . autoPlayCheck %= not
+    ScriptSelector -> Brick.zoom (uiState . uiLaunchConfig . controls . fileBrowser) $ do
+      maybeSingleFile <- use maybeSelectedFile
+      configuredFB <- initFileBrowserWidget maybeSingleFile
+      fbWidget .= configuredFB
+      fbIsDisplayed .= True
+    StartGameButton -> do
+      params <- use $ uiState . uiLaunchConfig . editingParams
+      let eitherLaunchParams = toValidatedParams params
+      forM_ eitherLaunchParams $ \launchParams -> do
+        closeModal
+        startGameWithSeed siPair launchParams
 
-    closeModal = uiState . uiLaunchConfig . controls . isDisplayedFor .= Nothing
+  closeModal = uiState . uiLaunchConfig . controls . isDisplayedFor .= Nothing
diff --git a/src/Swarm/TUI/Launch/Prep.hs b/src/Swarm/TUI/Launch/Prep.hs
@@ -55,7 +55,7 @@ parseWidgetParams :: LaunchControls -> IO EditingLaunchParams
 parseWidgetParams (LaunchControls _autoPlay (FileBrowserControl _fb maybeSelectedScript _) seedEditor _ _) = do
   eitherParsedCode <-
     runThrow . withThrow (prettyText @SystemFailure) $
-          traverse parseCodeFile maybeSelectedScript
+      traverse parseCodeFile maybeSelectedScript
   return $ LaunchParams eitherMaybeSeed eitherParsedCode
  where
   eitherMaybeSeed = parseSeedInput seedEditor