module Network.AWS.OpsWorks.AttachElasticLoadBalancer
(
attachElasticLoadBalancer
, AttachElasticLoadBalancer
, aelbElasticLoadBalancerName
, aelbLayerId
, attachElasticLoadBalancerResponse
, AttachElasticLoadBalancerResponse
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data AttachElasticLoadBalancer = AttachElasticLoadBalancer'
{ _aelbElasticLoadBalancerName :: !Text
, _aelbLayerId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
attachElasticLoadBalancer
:: Text
-> Text
-> AttachElasticLoadBalancer
attachElasticLoadBalancer pElasticLoadBalancerName_ pLayerId_ =
AttachElasticLoadBalancer'
{ _aelbElasticLoadBalancerName = pElasticLoadBalancerName_
, _aelbLayerId = pLayerId_
}
aelbElasticLoadBalancerName :: Lens' AttachElasticLoadBalancer Text
aelbElasticLoadBalancerName = lens _aelbElasticLoadBalancerName (\ s a -> s{_aelbElasticLoadBalancerName = a});
aelbLayerId :: Lens' AttachElasticLoadBalancer Text
aelbLayerId = lens _aelbLayerId (\ s a -> s{_aelbLayerId = a});
instance AWSRequest AttachElasticLoadBalancer where
type Rs AttachElasticLoadBalancer =
AttachElasticLoadBalancerResponse
request = postJSON opsWorks
response
= receiveNull AttachElasticLoadBalancerResponse'
instance Hashable AttachElasticLoadBalancer where
instance NFData AttachElasticLoadBalancer where
instance ToHeaders AttachElasticLoadBalancer where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.AttachElasticLoadBalancer" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AttachElasticLoadBalancer where
toJSON AttachElasticLoadBalancer'{..}
= object
(catMaybes
[Just
("ElasticLoadBalancerName" .=
_aelbElasticLoadBalancerName),
Just ("LayerId" .= _aelbLayerId)])
instance ToPath AttachElasticLoadBalancer where
toPath = const "/"
instance ToQuery AttachElasticLoadBalancer where
toQuery = const mempty
data AttachElasticLoadBalancerResponse =
AttachElasticLoadBalancerResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
attachElasticLoadBalancerResponse
:: AttachElasticLoadBalancerResponse
attachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse'
instance NFData AttachElasticLoadBalancerResponse
where