{-# 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.ELB.ApplySecurityGroupsToLoadBalancer
(
applySecurityGroupsToLoadBalancer
, ApplySecurityGroupsToLoadBalancer
, asgtlbLoadBalancerName
, asgtlbSecurityGroups
, applySecurityGroupsToLoadBalancerResponse
, ApplySecurityGroupsToLoadBalancerResponse
, asgtlbrsSecurityGroups
, asgtlbrsResponseStatus
) where
import Network.AWS.ELB.Types
import Network.AWS.ELB.Types.Product
import Network.AWS.Lens
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 Hashable ApplySecurityGroupsToLoadBalancer
where
instance NFData ApplySecurityGroupsToLoadBalancer
where
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])
, _asgtlbrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
applySecurityGroupsToLoadBalancerResponse
:: Int
-> ApplySecurityGroupsToLoadBalancerResponse
applySecurityGroupsToLoadBalancerResponse pResponseStatus_ =
ApplySecurityGroupsToLoadBalancerResponse'
{ _asgtlbrsSecurityGroups = Nothing
, _asgtlbrsResponseStatus = pResponseStatus_
}
asgtlbrsSecurityGroups :: Lens' ApplySecurityGroupsToLoadBalancerResponse [Text]
asgtlbrsSecurityGroups = lens _asgtlbrsSecurityGroups (\ s a -> s{_asgtlbrsSecurityGroups = a}) . _Default . _Coerce
asgtlbrsResponseStatus :: Lens' ApplySecurityGroupsToLoadBalancerResponse Int
asgtlbrsResponseStatus = lens _asgtlbrsResponseStatus (\ s a -> s{_asgtlbrsResponseStatus = a})
instance NFData
ApplySecurityGroupsToLoadBalancerResponse
where