module Stratosphere.KMS.Key (
        Key(..), mkKey
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Key
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html>
    Key {Key -> ()
haddock_workaround_ :: (),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-bypasspolicylockoutsafetycheck>
         Key -> Maybe (Value Bool)
bypassPolicyLockoutSafetyCheck :: (Prelude.Maybe (Value Prelude.Bool)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-description>
         Key -> Maybe (Value Text)
description :: (Prelude.Maybe (Value Prelude.Text)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-enablekeyrotation>
         Key -> Maybe (Value Bool)
enableKeyRotation :: (Prelude.Maybe (Value Prelude.Bool)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-enabled>
         Key -> Maybe (Value Bool)
enabled :: (Prelude.Maybe (Value Prelude.Bool)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-keypolicy>
         Key -> Maybe Object
keyPolicy :: (Prelude.Maybe JSON.Object),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-keyspec>
         Key -> Maybe (Value Text)
keySpec :: (Prelude.Maybe (Value Prelude.Text)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-keyusage>
         Key -> Maybe (Value Text)
keyUsage :: (Prelude.Maybe (Value Prelude.Text)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-multiregion>
         Key -> Maybe (Value Bool)
multiRegion :: (Prelude.Maybe (Value Prelude.Bool)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-origin>
         Key -> Maybe (Value Text)
origin :: (Prelude.Maybe (Value Prelude.Text)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-pendingwindowindays>
         Key -> Maybe (Value Integer)
pendingWindowInDays :: (Prelude.Maybe (Value Prelude.Integer)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-rotationperiodindays>
         Key -> Maybe (Value Integer)
rotationPeriodInDays :: (Prelude.Maybe (Value Prelude.Integer)),
         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-tags>
         Key -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag])}
  deriving stock (Key -> Key -> Bool
(Key -> Key -> Bool) -> (Key -> Key -> Bool) -> Eq Key
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Key -> Key -> Bool
== :: Key -> Key -> Bool
$c/= :: Key -> Key -> Bool
/= :: Key -> Key -> Bool
Prelude.Eq, Int -> Key -> ShowS
[Key] -> ShowS
Key -> String
(Int -> Key -> ShowS)
-> (Key -> String) -> ([Key] -> ShowS) -> Show Key
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Key -> ShowS
showsPrec :: Int -> Key -> ShowS
$cshow :: Key -> String
show :: Key -> String
$cshowList :: [Key] -> ShowS
showList :: [Key] -> ShowS
Prelude.Show)
mkKey :: Key
mkKey :: Key
mkKey
  = Key
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
bypassPolicyLockoutSafetyCheck = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing,
       description :: Maybe (Value Text)
description = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, enableKeyRotation :: Maybe (Value Bool)
enableKeyRotation = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing,
       enabled :: Maybe (Value Bool)
enabled = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing, keyPolicy :: Maybe Object
keyPolicy = Maybe Object
forall a. Maybe a
Prelude.Nothing,
       keySpec :: Maybe (Value Text)
keySpec = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, keyUsage :: Maybe (Value Text)
keyUsage = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       multiRegion :: Maybe (Value Bool)
multiRegion = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing, origin :: Maybe (Value Text)
origin = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       pendingWindowInDays :: Maybe (Value Integer)
pendingWindowInDays = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       rotationPeriodInDays :: Maybe (Value Integer)
rotationPeriodInDays = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing, tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Key where
  toResourceProperties :: Key -> ResourceProperties
toResourceProperties Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::KMS::Key", supportsTags :: Bool
supportsTags = Bool
Prelude.True,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BypassPolicyLockoutSafetyCheck"
                              (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
bypassPolicyLockoutSafetyCheck,
                            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..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
                            Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EnableKeyRotation" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
enableKeyRotation,
                            Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Enabled" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
enabled,
                            Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"KeyPolicy" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
keyPolicy,
                            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..=) Key
"KeySpec" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
keySpec,
                            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..=) Key
"KeyUsage" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
keyUsage,
                            Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MultiRegion" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
multiRegion,
                            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..=) Key
"Origin" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
origin,
                            Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PendingWindowInDays" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
pendingWindowInDays,
                            Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RotationPeriodInDays" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
rotationPeriodInDays,
                            Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags])}
instance JSON.ToJSON Key where
  toJSON :: Key -> Value
toJSON Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BypassPolicyLockoutSafetyCheck"
                 (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
bypassPolicyLockoutSafetyCheck,
               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..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EnableKeyRotation" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
enableKeyRotation,
               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Enabled" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
enabled,
               Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"KeyPolicy" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
keyPolicy,
               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..=) Key
"KeySpec" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
keySpec,
               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..=) Key
"KeyUsage" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
keyUsage,
               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MultiRegion" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
multiRegion,
               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..=) Key
"Origin" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
origin,
               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PendingWindowInDays" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
pendingWindowInDays,
               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RotationPeriodInDays" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
rotationPeriodInDays,
               Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags]))
instance Property "BypassPolicyLockoutSafetyCheck" Key where
  type PropertyType "BypassPolicyLockoutSafetyCheck" Key = Value Prelude.Bool
  set :: PropertyType "BypassPolicyLockoutSafetyCheck" Key -> Key -> Key
set PropertyType "BypassPolicyLockoutSafetyCheck" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
    = Key {bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
bypassPolicyLockoutSafetyCheck = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BypassPolicyLockoutSafetyCheck" Key
Value Bool
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "Description" Key where
  type PropertyType "Description" Key = Value Prelude.Text
  set :: PropertyType "Description" Key -> Key -> Key
set PropertyType "Description" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
    = Key {description :: Maybe (Value Text)
description = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Description" Key
Value Text
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "EnableKeyRotation" Key where
  type PropertyType "EnableKeyRotation" Key = Value Prelude.Bool
  set :: PropertyType "EnableKeyRotation" Key -> Key -> Key
set PropertyType "EnableKeyRotation" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
    = Key {enableKeyRotation :: Maybe (Value Bool)
enableKeyRotation = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "EnableKeyRotation" Key
Value Bool
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "Enabled" Key where
  type PropertyType "Enabled" Key = Value Prelude.Bool
  set :: PropertyType "Enabled" Key -> Key -> Key
set PropertyType "Enabled" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..} = Key {enabled :: Maybe (Value Bool)
enabled = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Enabled" Key
Value Bool
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "KeyPolicy" Key where
  type PropertyType "KeyPolicy" Key = JSON.Object
  set :: PropertyType "KeyPolicy" Key -> Key -> Key
set PropertyType "KeyPolicy" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..} = Key {keyPolicy :: Maybe Object
keyPolicy = Object -> Maybe Object
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Object
PropertyType "KeyPolicy" Key
newValue, Maybe [Tag]
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "KeySpec" Key where
  type PropertyType "KeySpec" Key = Value Prelude.Text
  set :: PropertyType "KeySpec" Key -> Key -> Key
set PropertyType "KeySpec" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..} = Key {keySpec :: Maybe (Value Text)
keySpec = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "KeySpec" Key
Value Text
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "KeyUsage" Key where
  type PropertyType "KeyUsage" Key = Value Prelude.Text
  set :: PropertyType "KeyUsage" Key -> Key -> Key
set PropertyType "KeyUsage" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..} = Key {keyUsage :: Maybe (Value Text)
keyUsage = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "KeyUsage" Key
Value Text
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "MultiRegion" Key where
  type PropertyType "MultiRegion" Key = Value Prelude.Bool
  set :: PropertyType "MultiRegion" Key -> Key -> Key
set PropertyType "MultiRegion" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
    = Key {multiRegion :: Maybe (Value Bool)
multiRegion = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MultiRegion" Key
Value Bool
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "Origin" Key where
  type PropertyType "Origin" Key = Value Prelude.Text
  set :: PropertyType "Origin" Key -> Key -> Key
set PropertyType "Origin" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..} = Key {origin :: Maybe (Value Text)
origin = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Origin" Key
Value Text
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "PendingWindowInDays" Key where
  type PropertyType "PendingWindowInDays" Key = Value Prelude.Integer
  set :: PropertyType "PendingWindowInDays" Key -> Key -> Key
set PropertyType "PendingWindowInDays" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
    = Key {pendingWindowInDays :: Maybe (Value Integer)
pendingWindowInDays = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PendingWindowInDays" Key
Value Integer
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "RotationPeriodInDays" Key where
  type PropertyType "RotationPeriodInDays" Key = Value Prelude.Integer
  set :: PropertyType "RotationPeriodInDays" Key -> Key -> Key
set PropertyType "RotationPeriodInDays" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
    = Key {rotationPeriodInDays :: Maybe (Value Integer)
rotationPeriodInDays = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RotationPeriodInDays" Key
Value Integer
newValue, Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..}
instance Property "Tags" Key where
  type PropertyType "Tags" Key = [Tag]
  set :: PropertyType "Tags" Key -> Key -> Key
set PropertyType "Tags" Key
newValue Key {Maybe [Tag]
Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: Key -> ()
bypassPolicyLockoutSafetyCheck :: Key -> Maybe (Value Bool)
description :: Key -> Maybe (Value Text)
enableKeyRotation :: Key -> Maybe (Value Bool)
enabled :: Key -> Maybe (Value Bool)
keyPolicy :: Key -> Maybe Object
keySpec :: Key -> Maybe (Value Text)
keyUsage :: Key -> Maybe (Value Text)
multiRegion :: Key -> Maybe (Value Bool)
origin :: Key -> Maybe (Value Text)
pendingWindowInDays :: Key -> Maybe (Value Integer)
rotationPeriodInDays :: Key -> Maybe (Value Integer)
tags :: Key -> Maybe [Tag]
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
tags :: Maybe [Tag]
..} = Key {tags :: Maybe [Tag]
tags = [Tag] -> Maybe [Tag]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [Tag]
PropertyType "Tags" Key
newValue, Maybe Object
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
haddock_workaround_ :: ()
bypassPolicyLockoutSafetyCheck :: Maybe (Value Bool)
description :: Maybe (Value Text)
enableKeyRotation :: Maybe (Value Bool)
enabled :: Maybe (Value Bool)
keyPolicy :: Maybe Object
keySpec :: Maybe (Value Text)
keyUsage :: Maybe (Value Text)
multiRegion :: Maybe (Value Bool)
origin :: Maybe (Value Text)
pendingWindowInDays :: Maybe (Value Integer)
rotationPeriodInDays :: Maybe (Value Integer)
..}