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 {LogPatternSetProperty -> ()
haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpatternset.html#cfn-applicationinsights-application-logpatternset-logpatterns>
                           LogPatternSetProperty -> [LogPatternProperty]
logPatterns :: [LogPatternProperty],
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpatternset.html#cfn-applicationinsights-application-logpatternset-patternsetname>
                           LogPatternSetProperty -> Value Text
patternSetName :: (Value Prelude.Text)}
  deriving stock (LogPatternSetProperty -> LogPatternSetProperty -> Bool
(LogPatternSetProperty -> LogPatternSetProperty -> Bool)
-> (LogPatternSetProperty -> LogPatternSetProperty -> Bool)
-> Eq LogPatternSetProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LogPatternSetProperty -> LogPatternSetProperty -> Bool
== :: LogPatternSetProperty -> LogPatternSetProperty -> Bool
$c/= :: LogPatternSetProperty -> LogPatternSetProperty -> Bool
/= :: LogPatternSetProperty -> LogPatternSetProperty -> Bool
Prelude.Eq, Int -> LogPatternSetProperty -> ShowS
[LogPatternSetProperty] -> ShowS
LogPatternSetProperty -> String
(Int -> LogPatternSetProperty -> ShowS)
-> (LogPatternSetProperty -> String)
-> ([LogPatternSetProperty] -> ShowS)
-> Show LogPatternSetProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LogPatternSetProperty -> ShowS
showsPrec :: Int -> LogPatternSetProperty -> ShowS
$cshow :: LogPatternSetProperty -> String
show :: LogPatternSetProperty -> String
$cshowList :: [LogPatternSetProperty] -> ShowS
showList :: [LogPatternSetProperty] -> ShowS
Prelude.Show)
mkLogPatternSetProperty ::
  [LogPatternProperty] -> Value Prelude.Text -> LogPatternSetProperty
mkLogPatternSetProperty :: [LogPatternProperty] -> Value Text -> LogPatternSetProperty
mkLogPatternSetProperty [LogPatternProperty]
logPatterns Value Text
patternSetName
  = LogPatternSetProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), logPatterns :: [LogPatternProperty]
logPatterns = [LogPatternProperty]
logPatterns,
       patternSetName :: Value Text
patternSetName = Value Text
patternSetName}
instance ToResourceProperties LogPatternSetProperty where
  toResourceProperties :: LogPatternSetProperty -> ResourceProperties
toResourceProperties LogPatternSetProperty {[LogPatternProperty]
()
Value Text
haddock_workaround_ :: LogPatternSetProperty -> ()
logPatterns :: LogPatternSetProperty -> [LogPatternProperty]
patternSetName :: LogPatternSetProperty -> Value Text
haddock_workaround_ :: ()
logPatterns :: [LogPatternProperty]
patternSetName :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ApplicationInsights::Application.LogPatternSet",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"LogPatterns" Key -> [LogPatternProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [LogPatternProperty]
logPatterns,
                       Key
"PatternSetName" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
patternSetName]}
instance JSON.ToJSON LogPatternSetProperty where
  toJSON :: LogPatternSetProperty -> Value
toJSON LogPatternSetProperty {[LogPatternProperty]
()
Value Text
haddock_workaround_ :: LogPatternSetProperty -> ()
logPatterns :: LogPatternSetProperty -> [LogPatternProperty]
patternSetName :: LogPatternSetProperty -> Value Text
haddock_workaround_ :: ()
logPatterns :: [LogPatternProperty]
patternSetName :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"LogPatterns" Key -> [LogPatternProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [LogPatternProperty]
logPatterns,
         Key
"PatternSetName" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
patternSetName]
instance Property "LogPatterns" LogPatternSetProperty where
  type PropertyType "LogPatterns" LogPatternSetProperty = [LogPatternProperty]
  set :: PropertyType "LogPatterns" LogPatternSetProperty
-> LogPatternSetProperty -> LogPatternSetProperty
set PropertyType "LogPatterns" LogPatternSetProperty
newValue LogPatternSetProperty {[LogPatternProperty]
()
Value Text
haddock_workaround_ :: LogPatternSetProperty -> ()
logPatterns :: LogPatternSetProperty -> [LogPatternProperty]
patternSetName :: LogPatternSetProperty -> Value Text
haddock_workaround_ :: ()
logPatterns :: [LogPatternProperty]
patternSetName :: Value Text
..}
    = LogPatternSetProperty {logPatterns :: [LogPatternProperty]
logPatterns = [LogPatternProperty]
PropertyType "LogPatterns" LogPatternSetProperty
newValue, ()
Value Text
haddock_workaround_ :: ()
patternSetName :: Value Text
haddock_workaround_ :: ()
patternSetName :: Value Text
..}
instance Property "PatternSetName" LogPatternSetProperty where
  type PropertyType "PatternSetName" LogPatternSetProperty = Value Prelude.Text
  set :: PropertyType "PatternSetName" LogPatternSetProperty
-> LogPatternSetProperty -> LogPatternSetProperty
set PropertyType "PatternSetName" LogPatternSetProperty
newValue LogPatternSetProperty {[LogPatternProperty]
()
Value Text
haddock_workaround_ :: LogPatternSetProperty -> ()
logPatterns :: LogPatternSetProperty -> [LogPatternProperty]
patternSetName :: LogPatternSetProperty -> Value Text
haddock_workaround_ :: ()
logPatterns :: [LogPatternProperty]
patternSetName :: Value Text
..}
    = LogPatternSetProperty {patternSetName :: Value Text
patternSetName = PropertyType "PatternSetName" LogPatternSetProperty
Value Text
newValue, [LogPatternProperty]
()
haddock_workaround_ :: ()
logPatterns :: [LogPatternProperty]
haddock_workaround_ :: ()
logPatterns :: [LogPatternProperty]
..}