SecretsManagerResourcePolicy.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TupleSections #-}

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-resourcepolicy.html

module Stratosphere.Resources.SecretsManagerResourcePolicy where

import Stratosphere.ResourceImports


-- | Full data type definition for SecretsManagerResourcePolicy. See
-- 'secretsManagerResourcePolicy' for a more convenient constructor.
data SecretsManagerResourcePolicy =
  SecretsManagerResourcePolicy
  { _secretsManagerResourcePolicyResourcePolicy :: Object
  , _secretsManagerResourcePolicySecretId :: Val Text
  } deriving (Show, Eq)

instance ToJSON SecretsManagerResourcePolicy where
  toJSON SecretsManagerResourcePolicy{..} =
    object $
    catMaybes
    [ (Just . ("ResourcePolicy",) . toJSON) _secretsManagerResourcePolicyResourcePolicy
    , (Just . ("SecretId",) . toJSON) _secretsManagerResourcePolicySecretId
    ]

instance FromJSON SecretsManagerResourcePolicy where
  parseJSON (Object obj) =
    SecretsManagerResourcePolicy <$>
      (obj .: "ResourcePolicy") <*>
      (obj .: "SecretId")
  parseJSON _ = mempty

-- | Constructor for 'SecretsManagerResourcePolicy' containing required fields
-- as arguments.
secretsManagerResourcePolicy
  :: Object -- ^ 'smrpResourcePolicy'
  -> Val Text -- ^ 'smrpSecretId'
  -> SecretsManagerResourcePolicy
secretsManagerResourcePolicy resourcePolicyarg secretIdarg =
  SecretsManagerResourcePolicy
  { _secretsManagerResourcePolicyResourcePolicy = resourcePolicyarg
  , _secretsManagerResourcePolicySecretId = secretIdarg
  }

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-resourcepolicy.html#cfn-secretsmanager-resourcepolicy-resourcepolicy
smrpResourcePolicy :: Lens' SecretsManagerResourcePolicy Object
smrpResourcePolicy = lens _secretsManagerResourcePolicyResourcePolicy (\s a -> s { _secretsManagerResourcePolicyResourcePolicy = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-resourcepolicy.html#cfn-secretsmanager-resourcepolicy-secretid
smrpSecretId :: Lens' SecretsManagerResourcePolicy (Val Text)
smrpSecretId = lens _secretsManagerResourcePolicySecretId (\s a -> s { _secretsManagerResourcePolicySecretId = a })