{-# 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 :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteReusableDelegationSet
:: Text
-> DeleteReusableDelegationSet
deleteReusableDelegationSet pId_ =
DeleteReusableDelegationSet'
{ _drdsId = pId_
}
drdsId :: Lens' DeleteReusableDelegationSet Text
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
instance NFData DeleteReusableDelegationSet
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