module Stratosphere.CleanRooms.Membership.MembershipMLPaymentConfigProperty ( module Exports, MembershipMLPaymentConfigProperty(..), mkMembershipMLPaymentConfigProperty ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import {-# SOURCE #-} Stratosphere.CleanRooms.Membership.MembershipModelInferencePaymentConfigProperty as Exports import {-# SOURCE #-} Stratosphere.CleanRooms.Membership.MembershipModelTrainingPaymentConfigProperty as Exports import Stratosphere.ResourceProperties data MembershipMLPaymentConfigProperty = -- | See: MembershipMLPaymentConfigProperty {haddock_workaround_ :: (), -- | See: modelInference :: (Prelude.Maybe MembershipModelInferencePaymentConfigProperty), -- | See: modelTraining :: (Prelude.Maybe MembershipModelTrainingPaymentConfigProperty)} deriving stock (Prelude.Eq, Prelude.Show) mkMembershipMLPaymentConfigProperty :: MembershipMLPaymentConfigProperty mkMembershipMLPaymentConfigProperty = MembershipMLPaymentConfigProperty {haddock_workaround_ = (), modelInference = Prelude.Nothing, modelTraining = Prelude.Nothing} instance ToResourceProperties MembershipMLPaymentConfigProperty where toResourceProperties MembershipMLPaymentConfigProperty {..} = ResourceProperties {awsType = "AWS::CleanRooms::Membership.MembershipMLPaymentConfig", supportsTags = Prelude.False, properties = Prelude.fromList (Prelude.catMaybes [(JSON..=) "ModelInference" Prelude.<$> modelInference, (JSON..=) "ModelTraining" Prelude.<$> modelTraining])} instance JSON.ToJSON MembershipMLPaymentConfigProperty where toJSON MembershipMLPaymentConfigProperty {..} = JSON.object (Prelude.fromList (Prelude.catMaybes [(JSON..=) "ModelInference" Prelude.<$> modelInference, (JSON..=) "ModelTraining" Prelude.<$> modelTraining])) instance Property "ModelInference" MembershipMLPaymentConfigProperty where type PropertyType "ModelInference" MembershipMLPaymentConfigProperty = MembershipModelInferencePaymentConfigProperty set newValue MembershipMLPaymentConfigProperty {..} = MembershipMLPaymentConfigProperty {modelInference = Prelude.pure newValue, ..} instance Property "ModelTraining" MembershipMLPaymentConfigProperty where type PropertyType "ModelTraining" MembershipMLPaymentConfigProperty = MembershipModelTrainingPaymentConfigProperty set newValue MembershipMLPaymentConfigProperty {..} = MembershipMLPaymentConfigProperty {modelTraining = Prelude.pure newValue, ..}