module Network.AWS.Route53.CreateHealthCheck
(
createHealthCheck
, CreateHealthCheck
, chcCallerReference
, chcHealthCheckConfig
, createHealthCheckResponse
, CreateHealthCheckResponse
, chcrsResponseStatus
, chcrsHealthCheck
, chcrsLocation
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53.Types
import Network.AWS.Route53.Types.Product
data CreateHealthCheck = CreateHealthCheck'
{ _chcCallerReference :: !Text
, _chcHealthCheckConfig :: !HealthCheckConfig
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createHealthCheck
:: Text
-> HealthCheckConfig
-> CreateHealthCheck
createHealthCheck pCallerReference_ pHealthCheckConfig_ =
CreateHealthCheck'
{ _chcCallerReference = pCallerReference_
, _chcHealthCheckConfig = pHealthCheckConfig_
}
chcCallerReference :: Lens' CreateHealthCheck Text
chcCallerReference = lens _chcCallerReference (\ s a -> s{_chcCallerReference = a});
chcHealthCheckConfig :: Lens' CreateHealthCheck HealthCheckConfig
chcHealthCheckConfig = lens _chcHealthCheckConfig (\ s a -> s{_chcHealthCheckConfig = a});
instance AWSRequest CreateHealthCheck where
type Rs CreateHealthCheck = CreateHealthCheckResponse
request = postXML route53
response
= receiveXML
(\ s h x ->
CreateHealthCheckResponse' <$>
(pure (fromEnum s)) <*> (x .@ "HealthCheck") <*>
(h .# "Location"))
instance Hashable CreateHealthCheck
instance NFData CreateHealthCheck
instance ToElement CreateHealthCheck where
toElement
= mkElement
"{https://route53.amazonaws.com/doc/2013-04-01/}CreateHealthCheckRequest"
instance ToHeaders CreateHealthCheck where
toHeaders = const mempty
instance ToPath CreateHealthCheck where
toPath = const "/2013-04-01/healthcheck"
instance ToQuery CreateHealthCheck where
toQuery = const mempty
instance ToXML CreateHealthCheck where
toXML CreateHealthCheck'{..}
= mconcat
["CallerReference" @= _chcCallerReference,
"HealthCheckConfig" @= _chcHealthCheckConfig]
data CreateHealthCheckResponse = CreateHealthCheckResponse'
{ _chcrsResponseStatus :: !Int
, _chcrsHealthCheck :: !HealthCheck
, _chcrsLocation :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createHealthCheckResponse
:: Int
-> HealthCheck
-> Text
-> CreateHealthCheckResponse
createHealthCheckResponse pResponseStatus_ pHealthCheck_ pLocation_ =
CreateHealthCheckResponse'
{ _chcrsResponseStatus = pResponseStatus_
, _chcrsHealthCheck = pHealthCheck_
, _chcrsLocation = pLocation_
}
chcrsResponseStatus :: Lens' CreateHealthCheckResponse Int
chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a});
chcrsHealthCheck :: Lens' CreateHealthCheckResponse HealthCheck
chcrsHealthCheck = lens _chcrsHealthCheck (\ s a -> s{_chcrsHealthCheck = a});
chcrsLocation :: Lens' CreateHealthCheckResponse Text
chcrsLocation = lens _chcrsLocation (\ s a -> s{_chcrsLocation = a});
instance NFData CreateHealthCheckResponse