module Stratosphere.EMRContainers.VirtualCluster.ContainerProviderProperty (
        module Exports, ContainerProviderProperty(..),
        mkContainerProviderProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.EMRContainers.VirtualCluster.ContainerInfoProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ContainerProviderProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emrcontainers-virtualcluster-containerprovider.html>
    ContainerProviderProperty {ContainerProviderProperty -> ()
haddock_workaround_ :: (),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emrcontainers-virtualcluster-containerprovider.html#cfn-emrcontainers-virtualcluster-containerprovider-id>
                               ContainerProviderProperty -> Value Text
id :: (Value Prelude.Text),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emrcontainers-virtualcluster-containerprovider.html#cfn-emrcontainers-virtualcluster-containerprovider-info>
                               ContainerProviderProperty -> ContainerInfoProperty
info :: ContainerInfoProperty,
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emrcontainers-virtualcluster-containerprovider.html#cfn-emrcontainers-virtualcluster-containerprovider-type>
                               ContainerProviderProperty -> Value Text
type' :: (Value Prelude.Text)}
  deriving stock (ContainerProviderProperty -> ContainerProviderProperty -> Bool
(ContainerProviderProperty -> ContainerProviderProperty -> Bool)
-> (ContainerProviderProperty -> ContainerProviderProperty -> Bool)
-> Eq ContainerProviderProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ContainerProviderProperty -> ContainerProviderProperty -> Bool
== :: ContainerProviderProperty -> ContainerProviderProperty -> Bool
$c/= :: ContainerProviderProperty -> ContainerProviderProperty -> Bool
/= :: ContainerProviderProperty -> ContainerProviderProperty -> Bool
Prelude.Eq, Int -> ContainerProviderProperty -> ShowS
[ContainerProviderProperty] -> ShowS
ContainerProviderProperty -> String
(Int -> ContainerProviderProperty -> ShowS)
-> (ContainerProviderProperty -> String)
-> ([ContainerProviderProperty] -> ShowS)
-> Show ContainerProviderProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ContainerProviderProperty -> ShowS
showsPrec :: Int -> ContainerProviderProperty -> ShowS
$cshow :: ContainerProviderProperty -> String
show :: ContainerProviderProperty -> String
$cshowList :: [ContainerProviderProperty] -> ShowS
showList :: [ContainerProviderProperty] -> ShowS
Prelude.Show)
mkContainerProviderProperty ::
  Value Prelude.Text
  -> ContainerInfoProperty
     -> Value Prelude.Text -> ContainerProviderProperty
mkContainerProviderProperty :: Value Text
-> ContainerInfoProperty -> Value Text -> ContainerProviderProperty
mkContainerProviderProperty Value Text
id ContainerInfoProperty
info Value Text
type'
  = ContainerProviderProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), id :: Value Text
id = Value Text
id, info :: ContainerInfoProperty
info = ContainerInfoProperty
info, type' :: Value Text
type' = Value Text
type'}
instance ToResourceProperties ContainerProviderProperty where
  toResourceProperties :: ContainerProviderProperty -> ResourceProperties
toResourceProperties ContainerProviderProperty {()
Value Text
ContainerInfoProperty
haddock_workaround_ :: ContainerProviderProperty -> ()
id :: ContainerProviderProperty -> Value Text
info :: ContainerProviderProperty -> ContainerInfoProperty
type' :: ContainerProviderProperty -> Value Text
haddock_workaround_ :: ()
id :: Value Text
info :: ContainerInfoProperty
type' :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::EMRContainers::VirtualCluster.ContainerProvider",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Id" 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
id, Key
"Info" Key -> ContainerInfoProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ContainerInfoProperty
info,
                       Key
"Type" 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
type']}
instance JSON.ToJSON ContainerProviderProperty where
  toJSON :: ContainerProviderProperty -> Value
toJSON ContainerProviderProperty {()
Value Text
ContainerInfoProperty
haddock_workaround_ :: ContainerProviderProperty -> ()
id :: ContainerProviderProperty -> Value Text
info :: ContainerProviderProperty -> ContainerInfoProperty
type' :: ContainerProviderProperty -> Value Text
haddock_workaround_ :: ()
id :: Value Text
info :: ContainerInfoProperty
type' :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"Id" 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
id, Key
"Info" Key -> ContainerInfoProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ContainerInfoProperty
info, Key
"Type" 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
type']
instance Property "Id" ContainerProviderProperty where
  type PropertyType "Id" ContainerProviderProperty = Value Prelude.Text
  set :: PropertyType "Id" ContainerProviderProperty
-> ContainerProviderProperty -> ContainerProviderProperty
set PropertyType "Id" ContainerProviderProperty
newValue ContainerProviderProperty {()
Value Text
ContainerInfoProperty
haddock_workaround_ :: ContainerProviderProperty -> ()
id :: ContainerProviderProperty -> Value Text
info :: ContainerProviderProperty -> ContainerInfoProperty
type' :: ContainerProviderProperty -> Value Text
haddock_workaround_ :: ()
id :: Value Text
info :: ContainerInfoProperty
type' :: Value Text
..}
    = ContainerProviderProperty {id :: Value Text
id = PropertyType "Id" ContainerProviderProperty
Value Text
newValue, ()
Value Text
ContainerInfoProperty
haddock_workaround_ :: ()
info :: ContainerInfoProperty
type' :: Value Text
haddock_workaround_ :: ()
info :: ContainerInfoProperty
type' :: Value Text
..}
instance Property "Info" ContainerProviderProperty where
  type PropertyType "Info" ContainerProviderProperty = ContainerInfoProperty
  set :: PropertyType "Info" ContainerProviderProperty
-> ContainerProviderProperty -> ContainerProviderProperty
set PropertyType "Info" ContainerProviderProperty
newValue ContainerProviderProperty {()
Value Text
ContainerInfoProperty
haddock_workaround_ :: ContainerProviderProperty -> ()
id :: ContainerProviderProperty -> Value Text
info :: ContainerProviderProperty -> ContainerInfoProperty
type' :: ContainerProviderProperty -> Value Text
haddock_workaround_ :: ()
id :: Value Text
info :: ContainerInfoProperty
type' :: Value Text
..}
    = ContainerProviderProperty {info :: ContainerInfoProperty
info = PropertyType "Info" ContainerProviderProperty
ContainerInfoProperty
newValue, ()
Value Text
haddock_workaround_ :: ()
id :: Value Text
type' :: Value Text
haddock_workaround_ :: ()
id :: Value Text
type' :: Value Text
..}
instance Property "Type" ContainerProviderProperty where
  type PropertyType "Type" ContainerProviderProperty = Value Prelude.Text
  set :: PropertyType "Type" ContainerProviderProperty
-> ContainerProviderProperty -> ContainerProviderProperty
set PropertyType "Type" ContainerProviderProperty
newValue ContainerProviderProperty {()
Value Text
ContainerInfoProperty
haddock_workaround_ :: ContainerProviderProperty -> ()
id :: ContainerProviderProperty -> Value Text
info :: ContainerProviderProperty -> ContainerInfoProperty
type' :: ContainerProviderProperty -> Value Text
haddock_workaround_ :: ()
id :: Value Text
info :: ContainerInfoProperty
type' :: Value Text
..}
    = ContainerProviderProperty {type' :: Value Text
type' = PropertyType "Type" ContainerProviderProperty
Value Text
newValue, ()
Value Text
ContainerInfoProperty
haddock_workaround_ :: ()
id :: Value Text
info :: ContainerInfoProperty
haddock_workaround_ :: ()
id :: Value Text
info :: ContainerInfoProperty
..}