module Stratosphere.PCS.Cluster.AuthKeyProperty (
        AuthKeyProperty(..), mkAuthKeyProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data AuthKeyProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pcs-cluster-authkey.html>
    AuthKeyProperty {AuthKeyProperty -> ()
haddock_workaround_ :: (),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pcs-cluster-authkey.html#cfn-pcs-cluster-authkey-secretarn>
                     AuthKeyProperty -> Value Text
secretArn :: (Value Prelude.Text),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pcs-cluster-authkey.html#cfn-pcs-cluster-authkey-secretversion>
                     AuthKeyProperty -> Value Text
secretVersion :: (Value Prelude.Text)}
  deriving stock (AuthKeyProperty -> AuthKeyProperty -> Bool
(AuthKeyProperty -> AuthKeyProperty -> Bool)
-> (AuthKeyProperty -> AuthKeyProperty -> Bool)
-> Eq AuthKeyProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthKeyProperty -> AuthKeyProperty -> Bool
== :: AuthKeyProperty -> AuthKeyProperty -> Bool
$c/= :: AuthKeyProperty -> AuthKeyProperty -> Bool
/= :: AuthKeyProperty -> AuthKeyProperty -> Bool
Prelude.Eq, Int -> AuthKeyProperty -> ShowS
[AuthKeyProperty] -> ShowS
AuthKeyProperty -> String
(Int -> AuthKeyProperty -> ShowS)
-> (AuthKeyProperty -> String)
-> ([AuthKeyProperty] -> ShowS)
-> Show AuthKeyProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AuthKeyProperty -> ShowS
showsPrec :: Int -> AuthKeyProperty -> ShowS
$cshow :: AuthKeyProperty -> String
show :: AuthKeyProperty -> String
$cshowList :: [AuthKeyProperty] -> ShowS
showList :: [AuthKeyProperty] -> ShowS
Prelude.Show)
mkAuthKeyProperty ::
  Value Prelude.Text -> Value Prelude.Text -> AuthKeyProperty
mkAuthKeyProperty :: Value Text -> Value Text -> AuthKeyProperty
mkAuthKeyProperty Value Text
secretArn Value Text
secretVersion
  = AuthKeyProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), secretArn :: Value Text
secretArn = Value Text
secretArn,
       secretVersion :: Value Text
secretVersion = Value Text
secretVersion}
instance ToResourceProperties AuthKeyProperty where
  toResourceProperties :: AuthKeyProperty -> ResourceProperties
toResourceProperties AuthKeyProperty {()
Value Text
haddock_workaround_ :: AuthKeyProperty -> ()
secretArn :: AuthKeyProperty -> Value Text
secretVersion :: AuthKeyProperty -> Value Text
haddock_workaround_ :: ()
secretArn :: Value Text
secretVersion :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::PCS::Cluster.AuthKey",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"SecretArn" 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
secretArn,
                       Key
"SecretVersion" 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
secretVersion]}
instance JSON.ToJSON AuthKeyProperty where
  toJSON :: AuthKeyProperty -> Value
toJSON AuthKeyProperty {()
Value Text
haddock_workaround_ :: AuthKeyProperty -> ()
secretArn :: AuthKeyProperty -> Value Text
secretVersion :: AuthKeyProperty -> Value Text
haddock_workaround_ :: ()
secretArn :: Value Text
secretVersion :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"SecretArn" 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
secretArn,
         Key
"SecretVersion" 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
secretVersion]
instance Property "SecretArn" AuthKeyProperty where
  type PropertyType "SecretArn" AuthKeyProperty = Value Prelude.Text
  set :: PropertyType "SecretArn" AuthKeyProperty
-> AuthKeyProperty -> AuthKeyProperty
set PropertyType "SecretArn" AuthKeyProperty
newValue AuthKeyProperty {()
Value Text
haddock_workaround_ :: AuthKeyProperty -> ()
secretArn :: AuthKeyProperty -> Value Text
secretVersion :: AuthKeyProperty -> Value Text
haddock_workaround_ :: ()
secretArn :: Value Text
secretVersion :: Value Text
..}
    = AuthKeyProperty {secretArn :: Value Text
secretArn = PropertyType "SecretArn" AuthKeyProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
secretVersion :: Value Text
haddock_workaround_ :: ()
secretVersion :: Value Text
..}
instance Property "SecretVersion" AuthKeyProperty where
  type PropertyType "SecretVersion" AuthKeyProperty = Value Prelude.Text
  set :: PropertyType "SecretVersion" AuthKeyProperty
-> AuthKeyProperty -> AuthKeyProperty
set PropertyType "SecretVersion" AuthKeyProperty
newValue AuthKeyProperty {()
Value Text
haddock_workaround_ :: AuthKeyProperty -> ()
secretArn :: AuthKeyProperty -> Value Text
secretVersion :: AuthKeyProperty -> Value Text
haddock_workaround_ :: ()
secretArn :: Value Text
secretVersion :: Value Text
..}
    = AuthKeyProperty {secretVersion :: Value Text
secretVersion = PropertyType "SecretVersion" AuthKeyProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
secretArn :: Value Text
haddock_workaround_ :: ()
secretArn :: Value Text
..}