module Network.AWS.Route53.DeleteTrafficPolicy
(
deleteTrafficPolicy
, DeleteTrafficPolicy
, dtpId
, dtpVersion
, deleteTrafficPolicyResponse
, DeleteTrafficPolicyResponse
, dtprsResponseStatus
) 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 DeleteTrafficPolicy = DeleteTrafficPolicy'
{ _dtpId :: !Text
, _dtpVersion :: !Nat
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteTrafficPolicy
:: Text
-> Natural
-> DeleteTrafficPolicy
deleteTrafficPolicy pId_ pVersion_ =
DeleteTrafficPolicy'
{ _dtpId = pId_
, _dtpVersion = _Nat # pVersion_
}
dtpId :: Lens' DeleteTrafficPolicy Text
dtpId = lens _dtpId (\ s a -> s{_dtpId = a});
dtpVersion :: Lens' DeleteTrafficPolicy Natural
dtpVersion = lens _dtpVersion (\ s a -> s{_dtpVersion = a}) . _Nat;
instance AWSRequest DeleteTrafficPolicy where
type Rs DeleteTrafficPolicy =
DeleteTrafficPolicyResponse
request = delete route53
response
= receiveEmpty
(\ s h x ->
DeleteTrafficPolicyResponse' <$> (pure (fromEnum s)))
instance ToHeaders DeleteTrafficPolicy where
toHeaders = const mempty
instance ToPath DeleteTrafficPolicy where
toPath DeleteTrafficPolicy'{..}
= mconcat
["/2013-04-01/trafficpolicy/", toBS _dtpId, "/",
toBS _dtpVersion]
instance ToQuery DeleteTrafficPolicy where
toQuery = const mempty
newtype DeleteTrafficPolicyResponse = DeleteTrafficPolicyResponse'
{ _dtprsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteTrafficPolicyResponse
:: Int
-> DeleteTrafficPolicyResponse
deleteTrafficPolicyResponse pResponseStatus_ =
DeleteTrafficPolicyResponse'
{ _dtprsResponseStatus = pResponseStatus_
}
dtprsResponseStatus :: Lens' DeleteTrafficPolicyResponse Int
dtprsResponseStatus = lens _dtprsResponseStatus (\ s a -> s{_dtprsResponseStatus = a});