{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
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
instance NFData DescribeDBClusterSnapshotAttributes
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