{-# 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.Route53.DeleteHealthCheck
(
deleteHealthCheck
, DeleteHealthCheck
, dhcHealthCheckId
, deleteHealthCheckResponse
, DeleteHealthCheckResponse
, dhcrsResponseStatus
) 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
newtype DeleteHealthCheck = DeleteHealthCheck'
{ _dhcHealthCheckId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteHealthCheck
:: Text
-> DeleteHealthCheck
deleteHealthCheck pHealthCheckId_ =
DeleteHealthCheck'
{ _dhcHealthCheckId = pHealthCheckId_
}
dhcHealthCheckId :: Lens' DeleteHealthCheck Text
dhcHealthCheckId = lens _dhcHealthCheckId (\ s a -> s{_dhcHealthCheckId = a});
instance AWSRequest DeleteHealthCheck where
type Rs DeleteHealthCheck = DeleteHealthCheckResponse
request = delete route53
response
= receiveEmpty
(\ s h x ->
DeleteHealthCheckResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteHealthCheck
instance NFData DeleteHealthCheck
instance ToHeaders DeleteHealthCheck where
toHeaders = const mempty
instance ToPath DeleteHealthCheck where
toPath DeleteHealthCheck'{..}
= mconcat
["/2013-04-01/healthcheck/", toBS _dhcHealthCheckId]
instance ToQuery DeleteHealthCheck where
toQuery = const mempty
newtype DeleteHealthCheckResponse = DeleteHealthCheckResponse'
{ _dhcrsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteHealthCheckResponse
:: Int
-> DeleteHealthCheckResponse
deleteHealthCheckResponse pResponseStatus_ =
DeleteHealthCheckResponse'
{ _dhcrsResponseStatus = pResponseStatus_
}
dhcrsResponseStatus :: Lens' DeleteHealthCheckResponse Int
dhcrsResponseStatus = lens _dhcrsResponseStatus (\ s a -> s{_dhcrsResponseStatus = a});
instance NFData DeleteHealthCheckResponse