module Network.AWS.RDS.DescribeDBClusterSnapshotAttributes
(
describeDBClusterSnapshotAttributes
, DescribeDBClusterSnapshotAttributes
, ddcsaDBClusterSnapshotIdentifier
, describeDBClusterSnapshotAttributesResponse
, DescribeDBClusterSnapshotAttributesResponse
, ddcsarsDBClusterSnapshotAttributesResult
, ddcsarsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.RDS.Types
import Network.AWS.RDS.Types.Product
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeDBClusterSnapshotAttributes = DescribeDBClusterSnapshotAttributes'
{ _ddcsaDBClusterSnapshotIdentifier :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDBClusterSnapshotAttributes
:: Text
-> DescribeDBClusterSnapshotAttributes
describeDBClusterSnapshotAttributes pDBClusterSnapshotIdentifier_ =
DescribeDBClusterSnapshotAttributes'
{_ddcsaDBClusterSnapshotIdentifier = pDBClusterSnapshotIdentifier_}
ddcsaDBClusterSnapshotIdentifier :: Lens' DescribeDBClusterSnapshotAttributes Text
ddcsaDBClusterSnapshotIdentifier = lens _ddcsaDBClusterSnapshotIdentifier (\ s a -> s{_ddcsaDBClusterSnapshotIdentifier = a});
instance AWSRequest
DescribeDBClusterSnapshotAttributes
where
type Rs DescribeDBClusterSnapshotAttributes =
DescribeDBClusterSnapshotAttributesResponse
request = postQuery rds
response
= receiveXMLWrapper
"DescribeDBClusterSnapshotAttributesResult"
(\ s h x ->
DescribeDBClusterSnapshotAttributesResponse' <$>
(x .@? "DBClusterSnapshotAttributesResult") <*>
(pure (fromEnum s)))
instance Hashable DescribeDBClusterSnapshotAttributes
where
instance NFData DescribeDBClusterSnapshotAttributes
where
instance ToHeaders
DescribeDBClusterSnapshotAttributes
where
toHeaders = const mempty
instance ToPath DescribeDBClusterSnapshotAttributes
where
toPath = const "/"
instance ToQuery DescribeDBClusterSnapshotAttributes
where
toQuery DescribeDBClusterSnapshotAttributes'{..}
= mconcat
["Action" =:
("DescribeDBClusterSnapshotAttributes" ::
ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"DBClusterSnapshotIdentifier" =:
_ddcsaDBClusterSnapshotIdentifier]
data DescribeDBClusterSnapshotAttributesResponse = DescribeDBClusterSnapshotAttributesResponse'
{ _ddcsarsDBClusterSnapshotAttributesResult :: !(Maybe DBClusterSnapshotAttributesResult)
, _ddcsarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDBClusterSnapshotAttributesResponse
:: Int
-> DescribeDBClusterSnapshotAttributesResponse
describeDBClusterSnapshotAttributesResponse pResponseStatus_ =
DescribeDBClusterSnapshotAttributesResponse'
{ _ddcsarsDBClusterSnapshotAttributesResult = Nothing
, _ddcsarsResponseStatus = pResponseStatus_
}
ddcsarsDBClusterSnapshotAttributesResult :: Lens' DescribeDBClusterSnapshotAttributesResponse (Maybe DBClusterSnapshotAttributesResult)
ddcsarsDBClusterSnapshotAttributesResult = lens _ddcsarsDBClusterSnapshotAttributesResult (\ s a -> s{_ddcsarsDBClusterSnapshotAttributesResult = a});
ddcsarsResponseStatus :: Lens' DescribeDBClusterSnapshotAttributesResponse Int
ddcsarsResponseStatus = lens _ddcsarsResponseStatus (\ s a -> s{_ddcsarsResponseStatus = a});
instance NFData
DescribeDBClusterSnapshotAttributesResponse
where