module Stratosphere.ImageBuilder.InfrastructureConfiguration.PlacementProperty ( PlacementProperty(..), mkPlacementProperty ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import Stratosphere.ResourceProperties import Stratosphere.Value data PlacementProperty = -- | See: PlacementProperty {haddock_workaround_ :: (), -- | See: availabilityZone :: (Prelude.Maybe (Value Prelude.Text)), -- | See: hostId :: (Prelude.Maybe (Value Prelude.Text)), -- | See: hostResourceGroupArn :: (Prelude.Maybe (Value Prelude.Text)), -- | See: tenancy :: (Prelude.Maybe (Value Prelude.Text))} deriving stock (Prelude.Eq, Prelude.Show) mkPlacementProperty :: PlacementProperty mkPlacementProperty = PlacementProperty {haddock_workaround_ = (), availabilityZone = Prelude.Nothing, hostId = Prelude.Nothing, hostResourceGroupArn = Prelude.Nothing, tenancy = Prelude.Nothing} instance ToResourceProperties PlacementProperty where toResourceProperties PlacementProperty {..} = ResourceProperties {awsType = "AWS::ImageBuilder::InfrastructureConfiguration.Placement", supportsTags = Prelude.False, properties = Prelude.fromList (Prelude.catMaybes [(JSON..=) "AvailabilityZone" Prelude.<$> availabilityZone, (JSON..=) "HostId" Prelude.<$> hostId, (JSON..=) "HostResourceGroupArn" Prelude.<$> hostResourceGroupArn, (JSON..=) "Tenancy" Prelude.<$> tenancy])} instance JSON.ToJSON PlacementProperty where toJSON PlacementProperty {..} = JSON.object (Prelude.fromList (Prelude.catMaybes [(JSON..=) "AvailabilityZone" Prelude.<$> availabilityZone, (JSON..=) "HostId" Prelude.<$> hostId, (JSON..=) "HostResourceGroupArn" Prelude.<$> hostResourceGroupArn, (JSON..=) "Tenancy" Prelude.<$> tenancy])) instance Property "AvailabilityZone" PlacementProperty where type PropertyType "AvailabilityZone" PlacementProperty = Value Prelude.Text set newValue PlacementProperty {..} = PlacementProperty {availabilityZone = Prelude.pure newValue, ..} instance Property "HostId" PlacementProperty where type PropertyType "HostId" PlacementProperty = Value Prelude.Text set newValue PlacementProperty {..} = PlacementProperty {hostId = Prelude.pure newValue, ..} instance Property "HostResourceGroupArn" PlacementProperty where type PropertyType "HostResourceGroupArn" PlacementProperty = Value Prelude.Text set newValue PlacementProperty {..} = PlacementProperty {hostResourceGroupArn = Prelude.pure newValue, ..} instance Property "Tenancy" PlacementProperty where type PropertyType "Tenancy" PlacementProperty = Value Prelude.Text set newValue PlacementProperty {..} = PlacementProperty {tenancy = Prelude.pure newValue, ..}