{-# 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.DeleteTrafficPolicyInstance
(
deleteTrafficPolicyInstance
, DeleteTrafficPolicyInstance
, dtpiId
, deleteTrafficPolicyInstanceResponse
, DeleteTrafficPolicyInstanceResponse
, dtpirsResponseStatus
) 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 DeleteTrafficPolicyInstance = DeleteTrafficPolicyInstance'
{ _dtpiId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTrafficPolicyInstance
:: Text
-> DeleteTrafficPolicyInstance
deleteTrafficPolicyInstance pId_ = DeleteTrafficPolicyInstance' {_dtpiId = pId_}
dtpiId :: Lens' DeleteTrafficPolicyInstance Text
dtpiId = lens _dtpiId (\ s a -> s{_dtpiId = a})
instance AWSRequest DeleteTrafficPolicyInstance where
type Rs DeleteTrafficPolicyInstance =
DeleteTrafficPolicyInstanceResponse
request = delete route53
response
= receiveEmpty
(\ s h x ->
DeleteTrafficPolicyInstanceResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteTrafficPolicyInstance where
instance NFData DeleteTrafficPolicyInstance where
instance ToHeaders DeleteTrafficPolicyInstance where
toHeaders = const mempty
instance ToPath DeleteTrafficPolicyInstance where
toPath DeleteTrafficPolicyInstance'{..}
= mconcat
["/2013-04-01/trafficpolicyinstance/", toBS _dtpiId]
instance ToQuery DeleteTrafficPolicyInstance where
toQuery = const mempty
newtype DeleteTrafficPolicyInstanceResponse = DeleteTrafficPolicyInstanceResponse'
{ _dtpirsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTrafficPolicyInstanceResponse
:: Int
-> DeleteTrafficPolicyInstanceResponse
deleteTrafficPolicyInstanceResponse pResponseStatus_ =
DeleteTrafficPolicyInstanceResponse'
{_dtpirsResponseStatus = pResponseStatus_}
dtpirsResponseStatus :: Lens' DeleteTrafficPolicyInstanceResponse Int
dtpirsResponseStatus = lens _dtpirsResponseStatus (\ s a -> s{_dtpirsResponseStatus = a})
instance NFData DeleteTrafficPolicyInstanceResponse
where