From b3b97a5a094472f138bea416d3e6853e8f51745f Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Wed, 12 Jul 2023 07:27:35 -0500 Subject: [PATCH] more fourmolu-0.12 changes --- src/Swarm/Game/Scenario/Topography/Cell.hs | 2 +- src/Swarm/Game/Scenario/Topography/Structure.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Swarm/Game/Scenario/Topography/Cell.hs b/src/Swarm/Game/Scenario/Topography/Cell.hs index 583b1f7a1..7de1cc25a 100644 --- a/src/Swarm/Game/Scenario/Topography/Cell.hs +++ b/src/Swarm/Game/Scenario/Topography/Cell.hs @@ -97,7 +97,7 @@ instance FromJSONE (EntityMap, RobotMap) (AugmentedCell Entity) where AugmentedCell <$> liftE (v .:? "waypoint") <*> v - ..: "cell" + ..: "cell" ------------------------------------------------------------ -- World editor diff --git a/src/Swarm/Game/Scenario/Topography/Structure.hs b/src/Swarm/Game/Scenario/Topography/Structure.hs index da2bac566..c1b8c3e47 100644 --- a/src/Swarm/Game/Scenario/Topography/Structure.hs +++ b/src/Swarm/Game/Scenario/Topography/Structure.hs @@ -36,7 +36,7 @@ instance FromJSONE (EntityMap, RobotMap) (NamedStructure (Maybe (PCell Entity))) sName <- liftE $ v .: "name" NamedStructure sName <$> v - ..: "structure" + ..: "structure" data PStructure c = Structure { area :: [[c]]