diff --git a/src/swarm-scenario/Swarm/Game/Entity.hs b/src/swarm-scenario/Swarm/Game/Entity.hs index 2159c78cc..be48eb57a 100644 --- a/src/swarm-scenario/Swarm/Game/Entity.hs +++ b/src/swarm-scenario/Swarm/Game/Entity.hs @@ -192,7 +192,7 @@ data GrowthSpread = GrowthSpread deriving (Eq, Ord, Show, Read, Generic, Hashable, ToJSON) instance FromJSON GrowthSpread where - parseJSON = withObject "Growth" $ \v -> do + parseJSON = withObject "GrowthSpread" $ \v -> do spreadRadius <- v .: "radius" spreadDensity <- v .: "density" pure GrowthSpread {..}