Restyled by fourmolu (#2157)

Co-authored-by: Restyled.io <commits@restyled.io>

src/swarm-doc/Swarm/Doc/Gen.hs

@@ -44,9 +44,9 @@ import Swarm.Doc.Keyword
 import Swarm.Doc.Pedagogy
 import Swarm.Doc.Util
 import Swarm.Doc.Wiki.Cheatsheet
+import Swarm.Failure (simpleErrorHandle)
 import Swarm.Game.Entity (Entity, EntityMap (entitiesByName), entityName, entityYields)
 import Swarm.Game.Entity qualified as E
-import Swarm.Failure (simpleErrorHandle)
 import Swarm.Game.Land
 import Swarm.Game.Recipe (Recipe, recipeCatalysts, recipeInputs, recipeOutputs)
 import Swarm.Game.Robot (Robot, equippedDevices, robotInventory)

src/swarm-doc/Swarm/Doc/Wiki/Cheatsheet.hs

@@ -28,11 +28,11 @@ import Swarm.Doc.Schema.Render
 import Swarm.Doc.Util
 import Swarm.Doc.Wiki.Matrix
 import Swarm.Doc.Wiki.Util
+import Swarm.Failure (simpleErrorHandle)
 import Swarm.Game.Device qualified as D
 import Swarm.Game.Display (displayChar)
 import Swarm.Game.Entity (Entity, EntityMap (entitiesByName), entityDisplay, entityName, loadEntities)
 import Swarm.Game.Entity qualified as E
-import Swarm.Failure (simpleErrorHandle)
 import Swarm.Game.Recipe (Recipe, loadRecipes, recipeCatalysts, recipeInputs, recipeOutputs, recipeTime, recipeWeight)
 import Swarm.Game.Terrain (loadTerrain, terrainByName)
 import Swarm.Language.Capability (Capability)

src/swarm-engine/Swarm/Game/Achievement/Persistence.hs

@@ -13,9 +13,9 @@ import Control.Effect.Lift
 import Control.Monad (forM_)
 import Data.Sequence (Seq)
 import Data.Yaml qualified as Y
+import Swarm.Failure
 import Swarm.Game.Achievement.Attainment
 import Swarm.Game.Achievement.Definitions
-import Swarm.Failure
 import Swarm.Game.ResourceLoading (getSwarmAchievementsPath)
 import Swarm.Util.Effect (forMW)
 import System.Directory (doesDirectoryExist, doesFileExist, listDirectory)

src/swarm-engine/Swarm/Game/State.hs

@@ -98,9 +98,9 @@ import Data.Text.Lazy qualified as TL
 import Data.Text.Lazy.Encoding qualified as TL
 import Data.Tuple (swap)
 import GHC.Generics (Generic)
+import Swarm.Failure (SystemFailure (..))
 import Swarm.Game.CESK (Store, emptyStore, store, suspendedEnv)
 import Swarm.Game.Entity
-import Swarm.Failure (SystemFailure (..))
 import Swarm.Game.Land
 import Swarm.Game.Location
 import Swarm.Game.Robot

src/swarm-engine/Swarm/Game/Step/Const.hs

@@ -45,13 +45,13 @@ import Data.Text qualified as T
 import Data.Tuple (swap)
 import Linear (V2 (..), perp, zero)
 import Swarm.Effect as Effect (Time, getNow)
+import Swarm.Failure
 import Swarm.Game.Achievement.Definitions
 import Swarm.Game.CESK
 import Swarm.Game.Display
 import Swarm.Game.Entity hiding (empty, lookup, singleton, union)
 import Swarm.Game.Entity qualified as E
 import Swarm.Game.Exception
-import Swarm.Failure
 import Swarm.Game.Land
 import Swarm.Game.Location
 import Swarm.Game.Recipe

src/swarm-scenario/Swarm/Game/Entity.hs

@@ -119,11 +119,11 @@ import Data.Text (Text)
 import Data.Text qualified as T
 import Data.Yaml
 import GHC.Generics (Generic)
+import Swarm.Failure
 import Swarm.Game.Device
 import Swarm.Game.Display
 import Swarm.Game.Entity.Cosmetic (WorldAttr (..))
 import Swarm.Game.Entity.Cosmetic.Assignment (worldAttributes)
-import Swarm.Failure
 import Swarm.Game.Ingredients
 import Swarm.Game.Location
 import Swarm.Game.ResourceLoading (getDataFileNameSafe)

src/swarm-scenario/Swarm/Game/Land.hs

@@ -16,8 +16,8 @@ import Control.Effect.Lift (Lift)
 import Control.Effect.Throw (Throw)
 import Control.Lens (makeLenses)
 import GHC.Generics (Generic)
-import Swarm.Game.Entity
 import Swarm.Failure (SystemFailure)
+import Swarm.Game.Entity
 import Swarm.Game.Terrain
 
 data TerrainEntityMaps = TerrainEntityMaps

src/swarm-scenario/Swarm/Game/Recipe.hs

@@ -67,8 +67,8 @@ import Data.Text (Text)
 import Data.Text qualified as T
 import Data.Yaml
 import GHC.Generics (Generic)
-import Swarm.Game.Entity as E
 import Swarm.Failure
+import Swarm.Game.Entity as E
 import Swarm.Game.Ingredients
 import Swarm.Game.ResourceLoading (getDataFileNameSafe)
 import Swarm.Util.Effect (withThrow)

src/swarm-scenario/Swarm/Game/Scenario.hs

@@ -73,10 +73,10 @@ import Data.Set qualified as Set
 import Data.Text (Text)
 import Data.Text qualified as T
 import GHC.Generics (Generic)
+import Swarm.Failure
 import Swarm.Game.Entity
 import Swarm.Game.Entity.Cosmetic
 import Swarm.Game.Entity.Cosmetic.Assignment (worldAttributes)
-import Swarm.Failure
 import Swarm.Game.Land
 import Swarm.Game.Location (Location)
 import Swarm.Game.Recipe

src/swarm-scenario/Swarm/Game/Terrain.hs

@@ -35,9 +35,9 @@ import Data.Text qualified as T
 import Data.Tuple (swap)
 import Data.Yaml
 import GHC.Generics (Generic)
+import Swarm.Failure
 import Swarm.Game.Display
 import Swarm.Game.Entity.Cosmetic (WorldAttr (..))
-import Swarm.Failure
 import Swarm.Game.ResourceLoading (getDataFileNameSafe)
 import Swarm.Util (enumeratedMap, quote)
 import Swarm.Util.Effect (withThrow)

src/swarm-scenario/Swarm/Game/World/Render.hs

@@ -24,9 +24,9 @@ import Data.Maybe (fromMaybe)
 import Data.Tuple.Extra (both)
 import GHC.Generics (Generic)
 import Linear (V2 (..))
+import Swarm.Failure (SystemFailure, simpleErrorHandle)
 import Swarm.Game.Display (defaultChar)
 import Swarm.Game.Entity.Cosmetic
-import Swarm.Failure (SystemFailure, simpleErrorHandle)
 import Swarm.Game.Land
 import Swarm.Game.Location
 import Swarm.Game.Scenario

src/swarm-tournament/Swarm/Web/Tournament/Validate.hs

@@ -22,8 +22,8 @@ import Data.Text qualified as T
 import Data.Text.Encoding (decodeUtf8')
 import Data.Yaml (decodeEither', parseEither)
 import Servant.Multipart
-import Swarm.Game.CESK (continue)
 import Swarm.Failure (SystemFailure)
+import Swarm.Game.CESK (continue)
 import Swarm.Game.Robot.Concrete (machine)
 import Swarm.Game.Scenario
 import Swarm.Game.Scenario.Scoring.CodeSize (codeMetricsFromSyntax)

src/swarm-tui/Swarm/TUI/Model/UI.hs

@@ -36,10 +36,10 @@ import Data.Map qualified as M
 import Data.Sequence (Seq)
 import Data.Set (Set)
 import Data.Text qualified as T
+import Swarm.Failure (SystemFailure)
 import Swarm.Game.Achievement.Attainment
 import Swarm.Game.Achievement.Definitions
 import Swarm.Game.Achievement.Persistence
-import Swarm.Failure (SystemFailure)
 import Swarm.Game.ResourceLoading (getSwarmHistoryPath)
 import Swarm.TUI.Editor.Model
 import Swarm.TUI.Inventory.Sorting

test/bench/Benchmark.hs

@@ -14,9 +14,9 @@ import Data.Sequence (Seq)
 import Data.Text qualified as T
 import Data.Tuple.Extra (dupe)
 import Swarm.Effect (runTimeIO)
+import Swarm.Failure (SystemFailure, simpleErrorHandle)
 import Swarm.Game.CESK (initMachine)
 import Swarm.Game.Display (defaultRobotDisplay)
-import Swarm.Failure (SystemFailure, simpleErrorHandle)
 import Swarm.Game.Location
 import Swarm.Game.Robot (TRobot, mkRobot)
 import Swarm.Game.Robot.Walk (emptyExceptions)

test/integration/Main.hs

@@ -28,10 +28,10 @@ import Data.Text.IO qualified as T
 import Data.Yaml (ParseException, prettyPrintParseException)
 import Swarm.Doc.Keyword (EditorType (..))
 import Swarm.Doc.Keyword qualified as Keyword
+import Swarm.Failure (SystemFailure)
 import Swarm.Game.Achievement.Definitions (GameplayAchievement (..))
 import Swarm.Game.CESK (initMachine)
 import Swarm.Game.Entity (lookupByName)
-import Swarm.Failure (SystemFailure)
 import Swarm.Game.Robot (equippedDevices, systemRobot)
 import Swarm.Game.Robot.Activity (commandsHistogram, lifetimeStepCount, tangibleCommandCount)
 import Swarm.Game.Robot.Concrete (activityCounts, machine, robotLog, waitingUntil)