{-# 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.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 Hashable DeleteTrafficPolicy where
instance NFData DeleteTrafficPolicy where
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})
instance NFData DeleteTrafficPolicyResponse where