module Stratosphere.Logs.Transformer (
        module Exports, Transformer(..), mkTransformer
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Logs.Transformer.ProcessorProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data Transformer
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-transformer.html>
    Transformer {Transformer -> ()
haddock_workaround_ :: (),
                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-transformer.html#cfn-logs-transformer-loggroupidentifier>
                 Transformer -> Value Text
logGroupIdentifier :: (Value Prelude.Text),
                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-transformer.html#cfn-logs-transformer-transformerconfig>
                 Transformer -> [ProcessorProperty]
transformerConfig :: [ProcessorProperty]}
  deriving stock (Transformer -> Transformer -> Bool
(Transformer -> Transformer -> Bool)
-> (Transformer -> Transformer -> Bool) -> Eq Transformer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Transformer -> Transformer -> Bool
== :: Transformer -> Transformer -> Bool
$c/= :: Transformer -> Transformer -> Bool
/= :: Transformer -> Transformer -> Bool
Prelude.Eq, Int -> Transformer -> ShowS
[Transformer] -> ShowS
Transformer -> String
(Int -> Transformer -> ShowS)
-> (Transformer -> String)
-> ([Transformer] -> ShowS)
-> Show Transformer
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Transformer -> ShowS
showsPrec :: Int -> Transformer -> ShowS
$cshow :: Transformer -> String
show :: Transformer -> String
$cshowList :: [Transformer] -> ShowS
showList :: [Transformer] -> ShowS
Prelude.Show)
mkTransformer ::
  Value Prelude.Text -> [ProcessorProperty] -> Transformer
mkTransformer :: Value Text -> [ProcessorProperty] -> Transformer
mkTransformer Value Text
logGroupIdentifier [ProcessorProperty]
transformerConfig
  = Transformer
      {haddock_workaround_ :: ()
haddock_workaround_ = (), logGroupIdentifier :: Value Text
logGroupIdentifier = Value Text
logGroupIdentifier,
       transformerConfig :: [ProcessorProperty]
transformerConfig = [ProcessorProperty]
transformerConfig}
instance ToResourceProperties Transformer where
  toResourceProperties :: Transformer -> ResourceProperties
toResourceProperties Transformer {[ProcessorProperty]
()
Value Text
haddock_workaround_ :: Transformer -> ()
logGroupIdentifier :: Transformer -> Value Text
transformerConfig :: Transformer -> [ProcessorProperty]
haddock_workaround_ :: ()
logGroupIdentifier :: Value Text
transformerConfig :: [ProcessorProperty]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Logs::Transformer", supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"LogGroupIdentifier" 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
logGroupIdentifier,
                       Key
"TransformerConfig" Key -> [ProcessorProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [ProcessorProperty]
transformerConfig]}
instance JSON.ToJSON Transformer where
  toJSON :: Transformer -> Value
toJSON Transformer {[ProcessorProperty]
()
Value Text
haddock_workaround_ :: Transformer -> ()
logGroupIdentifier :: Transformer -> Value Text
transformerConfig :: Transformer -> [ProcessorProperty]
haddock_workaround_ :: ()
logGroupIdentifier :: Value Text
transformerConfig :: [ProcessorProperty]
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"LogGroupIdentifier" 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
logGroupIdentifier,
         Key
"TransformerConfig" Key -> [ProcessorProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [ProcessorProperty]
transformerConfig]
instance Property "LogGroupIdentifier" Transformer where
  type PropertyType "LogGroupIdentifier" Transformer = Value Prelude.Text
  set :: PropertyType "LogGroupIdentifier" Transformer
-> Transformer -> Transformer
set PropertyType "LogGroupIdentifier" Transformer
newValue Transformer {[ProcessorProperty]
()
Value Text
haddock_workaround_ :: Transformer -> ()
logGroupIdentifier :: Transformer -> Value Text
transformerConfig :: Transformer -> [ProcessorProperty]
haddock_workaround_ :: ()
logGroupIdentifier :: Value Text
transformerConfig :: [ProcessorProperty]
..}
    = Transformer {logGroupIdentifier :: Value Text
logGroupIdentifier = PropertyType "LogGroupIdentifier" Transformer
Value Text
newValue, [ProcessorProperty]
()
haddock_workaround_ :: ()
transformerConfig :: [ProcessorProperty]
haddock_workaround_ :: ()
transformerConfig :: [ProcessorProperty]
..}
instance Property "TransformerConfig" Transformer where
  type PropertyType "TransformerConfig" Transformer = [ProcessorProperty]
  set :: PropertyType "TransformerConfig" Transformer
-> Transformer -> Transformer
set PropertyType "TransformerConfig" Transformer
newValue Transformer {[ProcessorProperty]
()
Value Text
haddock_workaround_ :: Transformer -> ()
logGroupIdentifier :: Transformer -> Value Text
transformerConfig :: Transformer -> [ProcessorProperty]
haddock_workaround_ :: ()
logGroupIdentifier :: Value Text
transformerConfig :: [ProcessorProperty]
..}
    = Transformer {transformerConfig :: [ProcessorProperty]
transformerConfig = [ProcessorProperty]
PropertyType "TransformerConfig" Transformer
newValue, ()
Value Text
haddock_workaround_ :: ()
logGroupIdentifier :: Value Text
haddock_workaround_ :: ()
logGroupIdentifier :: Value Text
..}