{-# 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
instance NFData DeleteTrafficPolicyInstance
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