module Network.AWS.ELB.ConfigureHealthCheck
(
ConfigureHealthCheck
, configureHealthCheck
, chcHealthCheck
, chcLoadBalancerName
, ConfigureHealthCheckResponse
, configureHealthCheckResponse
, chcrHealthCheck
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ELB.Types
import qualified GHC.Exts
data ConfigureHealthCheck = ConfigureHealthCheck
{ _chcHealthCheck :: HealthCheck
, _chcLoadBalancerName :: Text
} deriving (Eq, Show)
configureHealthCheck :: Text
-> HealthCheck
-> ConfigureHealthCheck
configureHealthCheck p1 p2 = ConfigureHealthCheck
{ _chcLoadBalancerName = p1
, _chcHealthCheck = p2
}
chcHealthCheck :: Lens' ConfigureHealthCheck HealthCheck
chcHealthCheck = lens _chcHealthCheck (\s a -> s { _chcHealthCheck = a })
chcLoadBalancerName :: Lens' ConfigureHealthCheck Text
chcLoadBalancerName =
lens _chcLoadBalancerName (\s a -> s { _chcLoadBalancerName = a })
newtype ConfigureHealthCheckResponse = ConfigureHealthCheckResponse
{ _chcrHealthCheck :: Maybe HealthCheck
} deriving (Eq, Show)
configureHealthCheckResponse :: ConfigureHealthCheckResponse
configureHealthCheckResponse = ConfigureHealthCheckResponse
{ _chcrHealthCheck = Nothing
}
chcrHealthCheck :: Lens' ConfigureHealthCheckResponse (Maybe HealthCheck)
chcrHealthCheck = lens _chcrHealthCheck (\s a -> s { _chcrHealthCheck = a })
instance ToPath ConfigureHealthCheck where
toPath = const "/"
instance ToQuery ConfigureHealthCheck where
toQuery ConfigureHealthCheck{..} = mconcat
[ "HealthCheck" =? _chcHealthCheck
, "LoadBalancerName" =? _chcLoadBalancerName
]
instance ToHeaders ConfigureHealthCheck
instance AWSRequest ConfigureHealthCheck where
type Sv ConfigureHealthCheck = ELB
type Rs ConfigureHealthCheck = ConfigureHealthCheckResponse
request = post "ConfigureHealthCheck"
response = xmlResponse
instance FromXML ConfigureHealthCheckResponse where
parseXML = withElement "ConfigureHealthCheckResult" $ \x -> ConfigureHealthCheckResponse
<$> x .@? "HealthCheck"