module Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer
(
applySecurityGroupsToLoadBalancer
, ApplySecurityGroupsToLoadBalancer
, asgtlbLoadBalancerName
, asgtlbSecurityGroups
, applySecurityGroupsToLoadBalancerResponse
, ApplySecurityGroupsToLoadBalancerResponse
, asgtlbrsSecurityGroups
, asgtlbrsStatus
) where
import Network.AWS.ELB.Types
import Network.AWS.ELB.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ApplySecurityGroupsToLoadBalancer = ApplySecurityGroupsToLoadBalancer'
{ _asgtlbLoadBalancerName :: !Text
, _asgtlbSecurityGroups :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
applySecurityGroupsToLoadBalancer
:: Text
-> ApplySecurityGroupsToLoadBalancer
applySecurityGroupsToLoadBalancer pLoadBalancerName_ =
ApplySecurityGroupsToLoadBalancer'
{ _asgtlbLoadBalancerName = pLoadBalancerName_
, _asgtlbSecurityGroups = mempty
}
asgtlbLoadBalancerName :: Lens' ApplySecurityGroupsToLoadBalancer Text
asgtlbLoadBalancerName = lens _asgtlbLoadBalancerName (\ s a -> s{_asgtlbLoadBalancerName = a});
asgtlbSecurityGroups :: Lens' ApplySecurityGroupsToLoadBalancer [Text]
asgtlbSecurityGroups = lens _asgtlbSecurityGroups (\ s a -> s{_asgtlbSecurityGroups = a}) . _Coerce;
instance AWSRequest ApplySecurityGroupsToLoadBalancer
where
type Rs ApplySecurityGroupsToLoadBalancer =
ApplySecurityGroupsToLoadBalancerResponse
request = postQuery eLB
response
= receiveXMLWrapper
"ApplySecurityGroupsToLoadBalancerResult"
(\ s h x ->
ApplySecurityGroupsToLoadBalancerResponse' <$>
(x .@? "SecurityGroups" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance ToHeaders ApplySecurityGroupsToLoadBalancer
where
toHeaders = const mempty
instance ToPath ApplySecurityGroupsToLoadBalancer
where
toPath = const "/"
instance ToQuery ApplySecurityGroupsToLoadBalancer
where
toQuery ApplySecurityGroupsToLoadBalancer'{..}
= mconcat
["Action" =:
("ApplySecurityGroupsToLoadBalancer" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"LoadBalancerName" =: _asgtlbLoadBalancerName,
"SecurityGroups" =:
toQueryList "member" _asgtlbSecurityGroups]
data ApplySecurityGroupsToLoadBalancerResponse = ApplySecurityGroupsToLoadBalancerResponse'
{ _asgtlbrsSecurityGroups :: !(Maybe [Text])
, _asgtlbrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
applySecurityGroupsToLoadBalancerResponse
:: Int
-> ApplySecurityGroupsToLoadBalancerResponse
applySecurityGroupsToLoadBalancerResponse pStatus_ =
ApplySecurityGroupsToLoadBalancerResponse'
{ _asgtlbrsSecurityGroups = Nothing
, _asgtlbrsStatus = pStatus_
}
asgtlbrsSecurityGroups :: Lens' ApplySecurityGroupsToLoadBalancerResponse [Text]
asgtlbrsSecurityGroups = lens _asgtlbrsSecurityGroups (\ s a -> s{_asgtlbrsSecurityGroups = a}) . _Default . _Coerce;
asgtlbrsStatus :: Lens' ApplySecurityGroupsToLoadBalancerResponse Int
asgtlbrsStatus = lens _asgtlbrsStatus (\ s a -> s{_asgtlbrsStatus = a});