stratosphere-applicationinsights-1.0.0: gen/Stratosphere/ApplicationInsights/Application/LogPatternSetProperty.hs

module Stratosphere.ApplicationInsights.Application.LogPatternSetProperty (
        module Exports, LogPatternSetProperty(..), mkLogPatternSetProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.ApplicationInsights.Application.LogPatternProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data LogPatternSetProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpatternset.html>
    LogPatternSetProperty {haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpatternset.html#cfn-applicationinsights-application-logpatternset-logpatterns>
                           logPatterns :: [LogPatternProperty],
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpatternset.html#cfn-applicationinsights-application-logpatternset-patternsetname>
                           patternSetName :: (Value Prelude.Text)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkLogPatternSetProperty ::
  [LogPatternProperty] -> Value Prelude.Text -> LogPatternSetProperty
mkLogPatternSetProperty logPatterns patternSetName
  = LogPatternSetProperty
      {haddock_workaround_ = (), logPatterns = logPatterns,
       patternSetName = patternSetName}
instance ToResourceProperties LogPatternSetProperty where
  toResourceProperties LogPatternSetProperty {..}
    = ResourceProperties
        {awsType = "AWS::ApplicationInsights::Application.LogPatternSet",
         supportsTags = Prelude.False,
         properties = ["LogPatterns" JSON..= logPatterns,
                       "PatternSetName" JSON..= patternSetName]}
instance JSON.ToJSON LogPatternSetProperty where
  toJSON LogPatternSetProperty {..}
    = JSON.object
        ["LogPatterns" JSON..= logPatterns,
         "PatternSetName" JSON..= patternSetName]
instance Property "LogPatterns" LogPatternSetProperty where
  type PropertyType "LogPatterns" LogPatternSetProperty = [LogPatternProperty]
  set newValue LogPatternSetProperty {..}
    = LogPatternSetProperty {logPatterns = newValue, ..}
instance Property "PatternSetName" LogPatternSetProperty where
  type PropertyType "PatternSetName" LogPatternSetProperty = Value Prelude.Text
  set newValue LogPatternSetProperty {..}
    = LogPatternSetProperty {patternSetName = newValue, ..}