module Network.AWS.ELBv2.SetIPAddressType
(
setIPAddressType
, SetIPAddressType
, siatLoadBalancerARN
, siatIPAddressType
, setIPAddressTypeResponse
, SetIPAddressTypeResponse
, siatrsIPAddressType
, siatrsResponseStatus
) where
import Network.AWS.ELBv2.Types
import Network.AWS.ELBv2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SetIPAddressType = SetIPAddressType'
{ _siatLoadBalancerARN :: !Text
, _siatIPAddressType :: !IPAddressType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
setIPAddressType
:: Text
-> IPAddressType
-> SetIPAddressType
setIPAddressType pLoadBalancerARN_ pIPAddressType_ =
SetIPAddressType'
{ _siatLoadBalancerARN = pLoadBalancerARN_
, _siatIPAddressType = pIPAddressType_
}
siatLoadBalancerARN :: Lens' SetIPAddressType Text
siatLoadBalancerARN = lens _siatLoadBalancerARN (\ s a -> s{_siatLoadBalancerARN = a});
siatIPAddressType :: Lens' SetIPAddressType IPAddressType
siatIPAddressType = lens _siatIPAddressType (\ s a -> s{_siatIPAddressType = a});
instance AWSRequest SetIPAddressType where
type Rs SetIPAddressType = SetIPAddressTypeResponse
request = postQuery eLBv2
response
= receiveXMLWrapper "SetIpAddressTypeResult"
(\ s h x ->
SetIPAddressTypeResponse' <$>
(x .@? "IpAddressType") <*> (pure (fromEnum s)))
instance Hashable SetIPAddressType where
instance NFData SetIPAddressType where
instance ToHeaders SetIPAddressType where
toHeaders = const mempty
instance ToPath SetIPAddressType where
toPath = const "/"
instance ToQuery SetIPAddressType where
toQuery SetIPAddressType'{..}
= mconcat
["Action" =: ("SetIpAddressType" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"LoadBalancerArn" =: _siatLoadBalancerARN,
"IpAddressType" =: _siatIPAddressType]
data SetIPAddressTypeResponse = SetIPAddressTypeResponse'
{ _siatrsIPAddressType :: !(Maybe IPAddressType)
, _siatrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
setIPAddressTypeResponse
:: Int
-> SetIPAddressTypeResponse
setIPAddressTypeResponse pResponseStatus_ =
SetIPAddressTypeResponse'
{_siatrsIPAddressType = Nothing, _siatrsResponseStatus = pResponseStatus_}
siatrsIPAddressType :: Lens' SetIPAddressTypeResponse (Maybe IPAddressType)
siatrsIPAddressType = lens _siatrsIPAddressType (\ s a -> s{_siatrsIPAddressType = a});
siatrsResponseStatus :: Lens' SetIPAddressTypeResponse Int
siatrsResponseStatus = lens _siatrsResponseStatus (\ s a -> s{_siatrsResponseStatus = a});
instance NFData SetIPAddressTypeResponse where