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

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

module Stratosphere.Resources.SecretsManagerSecretTargetAttachment where

import Stratosphere.ResourceImports


-- | Full data type definition for SecretsManagerSecretTargetAttachment. See
-- 'secretsManagerSecretTargetAttachment' for a more convenient constructor.
data SecretsManagerSecretTargetAttachment =
  SecretsManagerSecretTargetAttachment
  { _secretsManagerSecretTargetAttachmentSecretId :: Val Text
  , _secretsManagerSecretTargetAttachmentTargetId :: Val Text
  , _secretsManagerSecretTargetAttachmentTargetType :: Val Text
  } deriving (Show, Eq)

instance ToJSON SecretsManagerSecretTargetAttachment where
  toJSON SecretsManagerSecretTargetAttachment{..} =
    object $
    catMaybes
    [ (Just . ("SecretId",) . toJSON) _secretsManagerSecretTargetAttachmentSecretId
    , (Just . ("TargetId",) . toJSON) _secretsManagerSecretTargetAttachmentTargetId
    , (Just . ("TargetType",) . toJSON) _secretsManagerSecretTargetAttachmentTargetType
    ]

instance FromJSON SecretsManagerSecretTargetAttachment where
  parseJSON (Object obj) =
    SecretsManagerSecretTargetAttachment <$>
      (obj .: "SecretId") <*>
      (obj .: "TargetId") <*>
      (obj .: "TargetType")
  parseJSON _ = mempty

-- | Constructor for 'SecretsManagerSecretTargetAttachment' containing
-- required fields as arguments.
secretsManagerSecretTargetAttachment
  :: Val Text -- ^ 'smstaSecretId'
  -> Val Text -- ^ 'smstaTargetId'
  -> Val Text -- ^ 'smstaTargetType'
  -> SecretsManagerSecretTargetAttachment
secretsManagerSecretTargetAttachment secretIdarg targetIdarg targetTypearg =
  SecretsManagerSecretTargetAttachment
  { _secretsManagerSecretTargetAttachmentSecretId = secretIdarg
  , _secretsManagerSecretTargetAttachmentTargetId = targetIdarg
  , _secretsManagerSecretTargetAttachmentTargetType = targetTypearg
  }

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

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html#cfn-secretsmanager-secrettargetattachment-targetid
smstaTargetId :: Lens' SecretsManagerSecretTargetAttachment (Val Text)
smstaTargetId = lens _secretsManagerSecretTargetAttachmentTargetId (\s a -> s { _secretsManagerSecretTargetAttachmentTargetId = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html#cfn-secretsmanager-secrettargetattachment-targettype
smstaTargetType :: Lens' SecretsManagerSecretTargetAttachment (Val Text)
smstaTargetType = lens _secretsManagerSecretTargetAttachmentTargetType (\s a -> s { _secretsManagerSecretTargetAttachmentTargetType = a })