{-# 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.DescribeValidDBInstanceModifications
(
describeValidDBInstanceModifications
, DescribeValidDBInstanceModifications
, dvdimDBInstanceIdentifier
, describeValidDBInstanceModificationsResponse
, DescribeValidDBInstanceModificationsResponse
, dvdimrsValidDBInstanceModificationsMessage
, dvdimrsResponseStatus
) 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 DescribeValidDBInstanceModifications = DescribeValidDBInstanceModifications'
{ _dvdimDBInstanceIdentifier :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeValidDBInstanceModifications
:: Text
-> DescribeValidDBInstanceModifications
describeValidDBInstanceModifications pDBInstanceIdentifier_ =
DescribeValidDBInstanceModifications'
{_dvdimDBInstanceIdentifier = pDBInstanceIdentifier_}
dvdimDBInstanceIdentifier :: Lens' DescribeValidDBInstanceModifications Text
dvdimDBInstanceIdentifier = lens _dvdimDBInstanceIdentifier (\ s a -> s{_dvdimDBInstanceIdentifier = a})
instance AWSRequest
DescribeValidDBInstanceModifications
where
type Rs DescribeValidDBInstanceModifications =
DescribeValidDBInstanceModificationsResponse
request = postQuery rds
response
= receiveXMLWrapper
"DescribeValidDBInstanceModificationsResult"
(\ s h x ->
DescribeValidDBInstanceModificationsResponse' <$>
(x .@? "ValidDBInstanceModificationsMessage") <*>
(pure (fromEnum s)))
instance Hashable
DescribeValidDBInstanceModifications
where
instance NFData DescribeValidDBInstanceModifications
where
instance ToHeaders
DescribeValidDBInstanceModifications
where
toHeaders = const mempty
instance ToPath DescribeValidDBInstanceModifications
where
toPath = const "/"
instance ToQuery DescribeValidDBInstanceModifications
where
toQuery DescribeValidDBInstanceModifications'{..}
= mconcat
["Action" =:
("DescribeValidDBInstanceModifications" ::
ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"DBInstanceIdentifier" =: _dvdimDBInstanceIdentifier]
data DescribeValidDBInstanceModificationsResponse = DescribeValidDBInstanceModificationsResponse'
{ _dvdimrsValidDBInstanceModificationsMessage :: !(Maybe ValidDBInstanceModificationsMessage)
, _dvdimrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeValidDBInstanceModificationsResponse
:: Int
-> DescribeValidDBInstanceModificationsResponse
describeValidDBInstanceModificationsResponse pResponseStatus_ =
DescribeValidDBInstanceModificationsResponse'
{ _dvdimrsValidDBInstanceModificationsMessage = Nothing
, _dvdimrsResponseStatus = pResponseStatus_
}
dvdimrsValidDBInstanceModificationsMessage :: Lens' DescribeValidDBInstanceModificationsResponse (Maybe ValidDBInstanceModificationsMessage)
dvdimrsValidDBInstanceModificationsMessage = lens _dvdimrsValidDBInstanceModificationsMessage (\ s a -> s{_dvdimrsValidDBInstanceModificationsMessage = a})
dvdimrsResponseStatus :: Lens' DescribeValidDBInstanceModificationsResponse Int
dvdimrsResponseStatus = lens _dvdimrsResponseStatus (\ s a -> s{_dvdimrsResponseStatus = a})
instance NFData
DescribeValidDBInstanceModificationsResponse
where