module Network.AWS.OpsWorks.AttachElasticLoadBalancer
(
AttachElasticLoadBalancer
, attachElasticLoadBalancer
, aelbElasticLoadBalancerName
, aelbLayerId
, AttachElasticLoadBalancerResponse
, attachElasticLoadBalancerResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
data AttachElasticLoadBalancer = AttachElasticLoadBalancer
{ _aelbElasticLoadBalancerName :: Text
, _aelbLayerId :: Text
} deriving (Eq, Ord, Show)
attachElasticLoadBalancer :: Text
-> Text
-> AttachElasticLoadBalancer
attachElasticLoadBalancer p1 p2 = AttachElasticLoadBalancer
{ _aelbElasticLoadBalancerName = p1
, _aelbLayerId = p2
}
aelbElasticLoadBalancerName :: Lens' AttachElasticLoadBalancer Text
aelbElasticLoadBalancerName =
lens _aelbElasticLoadBalancerName
(\s a -> s { _aelbElasticLoadBalancerName = a })
aelbLayerId :: Lens' AttachElasticLoadBalancer Text
aelbLayerId = lens _aelbLayerId (\s a -> s { _aelbLayerId = a })
data AttachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse
deriving (Eq, Ord, Show, Generic)
attachElasticLoadBalancerResponse :: AttachElasticLoadBalancerResponse
attachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse
instance ToPath AttachElasticLoadBalancer where
toPath = const "/"
instance ToQuery AttachElasticLoadBalancer where
toQuery = const mempty
instance ToHeaders AttachElasticLoadBalancer
instance ToJSON AttachElasticLoadBalancer where
toJSON AttachElasticLoadBalancer{..} = object
[ "ElasticLoadBalancerName" .= _aelbElasticLoadBalancerName
, "LayerId" .= _aelbLayerId
]
instance AWSRequest AttachElasticLoadBalancer where
type Sv AttachElasticLoadBalancer = OpsWorks
type Rs AttachElasticLoadBalancer = AttachElasticLoadBalancerResponse
request = post "AttachElasticLoadBalancer"
response = nullResponse AttachElasticLoadBalancerResponse