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]]