{-# 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.DeleteReusableDelegationSet
(
deleteReusableDelegationSet
, DeleteReusableDelegationSet
, drdsId
, deleteReusableDelegationSetResponse
, DeleteReusableDelegationSetResponse
, drdsrsResponseStatus
) 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 DeleteReusableDelegationSet = DeleteReusableDelegationSet'
{ _drdsId :: ResourceId
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteReusableDelegationSet
:: ResourceId
-> DeleteReusableDelegationSet
deleteReusableDelegationSet pId_ = DeleteReusableDelegationSet' {_drdsId = pId_}
drdsId :: Lens' DeleteReusableDelegationSet ResourceId
drdsId = lens _drdsId (\ s a -> s{_drdsId = a})
instance AWSRequest DeleteReusableDelegationSet where
type Rs DeleteReusableDelegationSet =
DeleteReusableDelegationSetResponse
request = delete route53
response
= receiveEmpty
(\ s h x ->
DeleteReusableDelegationSetResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteReusableDelegationSet where
instance NFData DeleteReusableDelegationSet where
instance ToHeaders DeleteReusableDelegationSet where
toHeaders = const mempty
instance ToPath DeleteReusableDelegationSet where
toPath DeleteReusableDelegationSet'{..}
= mconcat
["/2013-04-01/delegationset/", toBS _drdsId]
instance ToQuery DeleteReusableDelegationSet where
toQuery = const mempty
newtype DeleteReusableDelegationSetResponse = DeleteReusableDelegationSetResponse'
{ _drdsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteReusableDelegationSetResponse
:: Int
-> DeleteReusableDelegationSetResponse
deleteReusableDelegationSetResponse pResponseStatus_ =
DeleteReusableDelegationSetResponse'
{_drdsrsResponseStatus = pResponseStatus_}
drdsrsResponseStatus :: Lens' DeleteReusableDelegationSetResponse Int
drdsrsResponseStatus = lens _drdsrsResponseStatus (\ s a -> s{_drdsrsResponseStatus = a})
instance NFData DeleteReusableDelegationSetResponse
where