{-# 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 where
instance NFData DeleteHealthCheck where
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 where