stratosphere-codeguruprofiler-1.0.0: gen/Stratosphere/CodeGuruProfiler/ProfilingGroup.hs

module Stratosphere.CodeGuruProfiler.ProfilingGroup (
        module Exports, ProfilingGroup(..), mkProfilingGroup
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CodeGuruProfiler.ProfilingGroup.AgentPermissionsProperty as Exports
import {-# SOURCE #-} Stratosphere.CodeGuruProfiler.ProfilingGroup.ChannelProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data ProfilingGroup
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html>
    ProfilingGroup {haddock_workaround_ :: (),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-agentpermissions>
                    agentPermissions :: (Prelude.Maybe AgentPermissionsProperty),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-anomalydetectionnotificationconfiguration>
                    anomalyDetectionNotificationConfiguration :: (Prelude.Maybe [ChannelProperty]),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-computeplatform>
                    computePlatform :: (Prelude.Maybe (Value Prelude.Text)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-profilinggroupname>
                    profilingGroupName :: (Value Prelude.Text),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-tags>
                    tags :: (Prelude.Maybe [Tag])}
  deriving stock (Prelude.Eq, Prelude.Show)
mkProfilingGroup :: Value Prelude.Text -> ProfilingGroup
mkProfilingGroup profilingGroupName
  = ProfilingGroup
      {haddock_workaround_ = (), profilingGroupName = profilingGroupName,
       agentPermissions = Prelude.Nothing,
       anomalyDetectionNotificationConfiguration = Prelude.Nothing,
       computePlatform = Prelude.Nothing, tags = Prelude.Nothing}
instance ToResourceProperties ProfilingGroup where
  toResourceProperties ProfilingGroup {..}
    = ResourceProperties
        {awsType = "AWS::CodeGuruProfiler::ProfilingGroup",
         supportsTags = Prelude.True,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["ProfilingGroupName" JSON..= profilingGroupName]
                           (Prelude.catMaybes
                              [(JSON..=) "AgentPermissions" Prelude.<$> agentPermissions,
                               (JSON..=) "AnomalyDetectionNotificationConfiguration"
                                 Prelude.<$> anomalyDetectionNotificationConfiguration,
                               (JSON..=) "ComputePlatform" Prelude.<$> computePlatform,
                               (JSON..=) "Tags" Prelude.<$> tags]))}
instance JSON.ToJSON ProfilingGroup where
  toJSON ProfilingGroup {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["ProfilingGroupName" JSON..= profilingGroupName]
              (Prelude.catMaybes
                 [(JSON..=) "AgentPermissions" Prelude.<$> agentPermissions,
                  (JSON..=) "AnomalyDetectionNotificationConfiguration"
                    Prelude.<$> anomalyDetectionNotificationConfiguration,
                  (JSON..=) "ComputePlatform" Prelude.<$> computePlatform,
                  (JSON..=) "Tags" Prelude.<$> tags])))
instance Property "AgentPermissions" ProfilingGroup where
  type PropertyType "AgentPermissions" ProfilingGroup = AgentPermissionsProperty
  set newValue ProfilingGroup {..}
    = ProfilingGroup {agentPermissions = Prelude.pure newValue, ..}
instance Property "AnomalyDetectionNotificationConfiguration" ProfilingGroup where
  type PropertyType "AnomalyDetectionNotificationConfiguration" ProfilingGroup = [ChannelProperty]
  set newValue ProfilingGroup {..}
    = ProfilingGroup
        {anomalyDetectionNotificationConfiguration = Prelude.pure newValue,
         ..}
instance Property "ComputePlatform" ProfilingGroup where
  type PropertyType "ComputePlatform" ProfilingGroup = Value Prelude.Text
  set newValue ProfilingGroup {..}
    = ProfilingGroup {computePlatform = Prelude.pure newValue, ..}
instance Property "ProfilingGroupName" ProfilingGroup where
  type PropertyType "ProfilingGroupName" ProfilingGroup = Value Prelude.Text
  set newValue ProfilingGroup {..}
    = ProfilingGroup {profilingGroupName = newValue, ..}
instance Property "Tags" ProfilingGroup where
  type PropertyType "Tags" ProfilingGroup = [Tag]
  set newValue ProfilingGroup {..}
    = ProfilingGroup {tags = Prelude.pure newValue, ..}