Restyled by fourmolu (#551)

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

src/Swarm/Game/Exception.hs

@@ -21,13 +21,13 @@ module Swarm.Game.Exception (
 ) where
 
 import Control.Lens ((^.))
+import Data.Aeson (FromJSON, ToJSON)
 import Data.Map qualified as M
 import Data.Set qualified as S
-import Data.Aeson (FromJSON, ToJSON)
 import Data.Text (Text)
 import Data.Text qualified as T
-import Witch (from)
 import GHC.Generics (Generic)
+import Witch (from)
 
 import Swarm.Game.Entity (EntityMap, deviceForCap, entityName)
 import Swarm.Language.Capability (Capability (CGod), capabilityName)

src/Swarm/Language/Requirement.hs

@@ -26,8 +26,8 @@ module Swarm.Language.Requirement (
   requirements,
 ) where
 
-import Data.Bifunctor (first)
 import Data.Aeson (FromJSON, ToJSON)
+import Data.Bifunctor (first)
 import Data.Data (Data)
 import Data.Hashable (Hashable)
 import Data.Map (Map)

src/Swarm/Util.hs

@@ -67,9 +67,9 @@ import Control.Exception (catch)
 import Control.Exception.Base (IOException)
 import Control.Lens (ASetter', LensLike, LensLike', Over, (<>~))
 import Control.Monad (forM, unless, when)
+import Data.Aeson (FromJSONKey, ToJSONKey)
 import Data.Bifunctor (first)
 import Data.Char (isAlphaNum)
-import Data.Aeson (FromJSONKey, ToJSONKey)
 import Data.Either.Validation
 import Data.Int (Int64)
 import Data.List (maximumBy, partition)

test/unit/Main.hs

@@ -12,9 +12,9 @@ import Data.Aeson (eitherDecode, encode)
 import Data.Either
 import Data.Hashable
 import Data.List (subsequences)
+import Data.Maybe
 import Data.Set (Set)
 import Data.Set qualified as S
-import Data.Maybe
 import Data.String (fromString)
 import Data.Text (Text)
 import Data.Text qualified as T