module Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs
(
swapEnvironmentCNAMEs
, SwapEnvironmentCNAMEs
, secnameDestinationEnvironmentName
, secnameDestinationEnvironmentId
, secnameSourceEnvironmentName
, secnameSourceEnvironmentId
, swapEnvironmentCNAMEsResponse
, SwapEnvironmentCNAMEsResponse
) where
import Network.AWS.ElasticBeanstalk.Types
import Network.AWS.ElasticBeanstalk.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SwapEnvironmentCNAMEs = SwapEnvironmentCNAMEs'
{ _secnameDestinationEnvironmentName :: !(Maybe Text)
, _secnameDestinationEnvironmentId :: !(Maybe Text)
, _secnameSourceEnvironmentName :: !(Maybe Text)
, _secnameSourceEnvironmentId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
swapEnvironmentCNAMEs
:: SwapEnvironmentCNAMEs
swapEnvironmentCNAMEs =
SwapEnvironmentCNAMEs'
{ _secnameDestinationEnvironmentName = Nothing
, _secnameDestinationEnvironmentId = Nothing
, _secnameSourceEnvironmentName = Nothing
, _secnameSourceEnvironmentId = Nothing
}
secnameDestinationEnvironmentName :: Lens' SwapEnvironmentCNAMEs (Maybe Text)
secnameDestinationEnvironmentName = lens _secnameDestinationEnvironmentName (\ s a -> s{_secnameDestinationEnvironmentName = a});
secnameDestinationEnvironmentId :: Lens' SwapEnvironmentCNAMEs (Maybe Text)
secnameDestinationEnvironmentId = lens _secnameDestinationEnvironmentId (\ s a -> s{_secnameDestinationEnvironmentId = a});
secnameSourceEnvironmentName :: Lens' SwapEnvironmentCNAMEs (Maybe Text)
secnameSourceEnvironmentName = lens _secnameSourceEnvironmentName (\ s a -> s{_secnameSourceEnvironmentName = a});
secnameSourceEnvironmentId :: Lens' SwapEnvironmentCNAMEs (Maybe Text)
secnameSourceEnvironmentId = lens _secnameSourceEnvironmentId (\ s a -> s{_secnameSourceEnvironmentId = a});
instance AWSRequest SwapEnvironmentCNAMEs where
type Rs SwapEnvironmentCNAMEs =
SwapEnvironmentCNAMEsResponse
request = postQuery elasticBeanstalk
response = receiveNull SwapEnvironmentCNAMEsResponse'
instance Hashable SwapEnvironmentCNAMEs
instance NFData SwapEnvironmentCNAMEs
instance ToHeaders SwapEnvironmentCNAMEs where
toHeaders = const mempty
instance ToPath SwapEnvironmentCNAMEs where
toPath = const "/"
instance ToQuery SwapEnvironmentCNAMEs where
toQuery SwapEnvironmentCNAMEs'{..}
= mconcat
["Action" =: ("SwapEnvironmentCNAMEs" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"DestinationEnvironmentName" =:
_secnameDestinationEnvironmentName,
"DestinationEnvironmentId" =:
_secnameDestinationEnvironmentId,
"SourceEnvironmentName" =:
_secnameSourceEnvironmentName,
"SourceEnvironmentId" =: _secnameSourceEnvironmentId]
data SwapEnvironmentCNAMEsResponse =
SwapEnvironmentCNAMEsResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
swapEnvironmentCNAMEsResponse
:: SwapEnvironmentCNAMEsResponse
swapEnvironmentCNAMEsResponse = SwapEnvironmentCNAMEsResponse'
instance NFData SwapEnvironmentCNAMEsResponse