{-# 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.ElasticBeanstalk.AbortEnvironmentUpdate
(
abortEnvironmentUpdate
, AbortEnvironmentUpdate
, aeuEnvironmentName
, aeuEnvironmentId
, abortEnvironmentUpdateResponse
, AbortEnvironmentUpdateResponse
) 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 AbortEnvironmentUpdate = AbortEnvironmentUpdate'
{ _aeuEnvironmentName :: !(Maybe Text)
, _aeuEnvironmentId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
abortEnvironmentUpdate
:: AbortEnvironmentUpdate
abortEnvironmentUpdate =
AbortEnvironmentUpdate'
{ _aeuEnvironmentName = Nothing
, _aeuEnvironmentId = Nothing
}
aeuEnvironmentName :: Lens' AbortEnvironmentUpdate (Maybe Text)
aeuEnvironmentName = lens _aeuEnvironmentName (\ s a -> s{_aeuEnvironmentName = a});
aeuEnvironmentId :: Lens' AbortEnvironmentUpdate (Maybe Text)
aeuEnvironmentId = lens _aeuEnvironmentId (\ s a -> s{_aeuEnvironmentId = a});
instance AWSRequest AbortEnvironmentUpdate where
type Rs AbortEnvironmentUpdate =
AbortEnvironmentUpdateResponse
request = postQuery elasticBeanstalk
response
= receiveNull AbortEnvironmentUpdateResponse'
instance Hashable AbortEnvironmentUpdate
instance NFData AbortEnvironmentUpdate
instance ToHeaders AbortEnvironmentUpdate where
toHeaders = const mempty
instance ToPath AbortEnvironmentUpdate where
toPath = const "/"
instance ToQuery AbortEnvironmentUpdate where
toQuery AbortEnvironmentUpdate'{..}
= mconcat
["Action" =:
("AbortEnvironmentUpdate" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"EnvironmentName" =: _aeuEnvironmentName,
"EnvironmentId" =: _aeuEnvironmentId]
data AbortEnvironmentUpdateResponse =
AbortEnvironmentUpdateResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
abortEnvironmentUpdateResponse
:: AbortEnvironmentUpdateResponse
abortEnvironmentUpdateResponse = AbortEnvironmentUpdateResponse'
instance NFData AbortEnvironmentUpdateResponse