module Network.AWS.ElasticBeanstalk.SwapEnvironmentCNAMEs
(
SwapEnvironmentCNAMEs
, swapEnvironmentCNAMEs
, secnameDestinationEnvironmentId
, secnameDestinationEnvironmentName
, secnameSourceEnvironmentId
, secnameSourceEnvironmentName
, SwapEnvironmentCNAMEsResponse
, swapEnvironmentCNAMEsResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElasticBeanstalk.Types
import qualified GHC.Exts
data SwapEnvironmentCNAMEs = SwapEnvironmentCNAMEs
{ _secnameDestinationEnvironmentId :: Maybe Text
, _secnameDestinationEnvironmentName :: Maybe Text
, _secnameSourceEnvironmentId :: Maybe Text
, _secnameSourceEnvironmentName :: Maybe Text
} deriving (Eq, Ord, Show)
swapEnvironmentCNAMEs :: SwapEnvironmentCNAMEs
swapEnvironmentCNAMEs = SwapEnvironmentCNAMEs
{ _secnameSourceEnvironmentId = Nothing
, _secnameSourceEnvironmentName = Nothing
, _secnameDestinationEnvironmentId = Nothing
, _secnameDestinationEnvironmentName = Nothing
}
secnameDestinationEnvironmentId :: Lens' SwapEnvironmentCNAMEs (Maybe Text)
secnameDestinationEnvironmentId =
lens _secnameDestinationEnvironmentId
(\s a -> s { _secnameDestinationEnvironmentId = a })
secnameDestinationEnvironmentName :: Lens' SwapEnvironmentCNAMEs (Maybe Text)
secnameDestinationEnvironmentName =
lens _secnameDestinationEnvironmentName
(\s a -> s { _secnameDestinationEnvironmentName = a })
secnameSourceEnvironmentId :: Lens' SwapEnvironmentCNAMEs (Maybe Text)
secnameSourceEnvironmentId =
lens _secnameSourceEnvironmentId
(\s a -> s { _secnameSourceEnvironmentId = a })
secnameSourceEnvironmentName :: Lens' SwapEnvironmentCNAMEs (Maybe Text)
secnameSourceEnvironmentName =
lens _secnameSourceEnvironmentName
(\s a -> s { _secnameSourceEnvironmentName = a })
data SwapEnvironmentCNAMEsResponse = SwapEnvironmentCNAMEsResponse
deriving (Eq, Ord, Show, Generic)
swapEnvironmentCNAMEsResponse :: SwapEnvironmentCNAMEsResponse
swapEnvironmentCNAMEsResponse = SwapEnvironmentCNAMEsResponse
instance ToPath SwapEnvironmentCNAMEs where
toPath = const "/"
instance ToQuery SwapEnvironmentCNAMEs where
toQuery SwapEnvironmentCNAMEs{..} = mconcat
[ "DestinationEnvironmentId" =? _secnameDestinationEnvironmentId
, "DestinationEnvironmentName" =? _secnameDestinationEnvironmentName
, "SourceEnvironmentId" =? _secnameSourceEnvironmentId
, "SourceEnvironmentName" =? _secnameSourceEnvironmentName
]
instance ToHeaders SwapEnvironmentCNAMEs
instance AWSRequest SwapEnvironmentCNAMEs where
type Sv SwapEnvironmentCNAMEs = ElasticBeanstalk
type Rs SwapEnvironmentCNAMEs = SwapEnvironmentCNAMEsResponse
request = post "SwapEnvironmentCNAMEs"
response = nullResponse SwapEnvironmentCNAMEsResponse