module Network.AWS.OpsWorks.DetachElasticLoadBalancer
(
DetachElasticLoadBalancer
, detachElasticLoadBalancer
, delbElasticLoadBalancerName
, delbLayerId
, DetachElasticLoadBalancerResponse
, detachElasticLoadBalancerResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
data DetachElasticLoadBalancer = DetachElasticLoadBalancer
{ _delbElasticLoadBalancerName :: Text
, _delbLayerId :: Text
} deriving (Eq, Ord, Show)
detachElasticLoadBalancer :: Text
-> Text
-> DetachElasticLoadBalancer
detachElasticLoadBalancer p1 p2 = DetachElasticLoadBalancer
{ _delbElasticLoadBalancerName = p1
, _delbLayerId = p2
}
delbElasticLoadBalancerName :: Lens' DetachElasticLoadBalancer Text
delbElasticLoadBalancerName =
lens _delbElasticLoadBalancerName
(\s a -> s { _delbElasticLoadBalancerName = a })
delbLayerId :: Lens' DetachElasticLoadBalancer Text
delbLayerId = lens _delbLayerId (\s a -> s { _delbLayerId = a })
data DetachElasticLoadBalancerResponse = DetachElasticLoadBalancerResponse
deriving (Eq, Ord, Show, Generic)
detachElasticLoadBalancerResponse :: DetachElasticLoadBalancerResponse
detachElasticLoadBalancerResponse = DetachElasticLoadBalancerResponse
instance ToPath DetachElasticLoadBalancer where
toPath = const "/"
instance ToQuery DetachElasticLoadBalancer where
toQuery = const mempty
instance ToHeaders DetachElasticLoadBalancer
instance ToJSON DetachElasticLoadBalancer where
toJSON DetachElasticLoadBalancer{..} = object
[ "ElasticLoadBalancerName" .= _delbElasticLoadBalancerName
, "LayerId" .= _delbLayerId
]
instance AWSRequest DetachElasticLoadBalancer where
type Sv DetachElasticLoadBalancer = OpsWorks
type Rs DetachElasticLoadBalancer = DetachElasticLoadBalancerResponse
request = post "DetachElasticLoadBalancer"
response = nullResponse DetachElasticLoadBalancerResponse