module Network.AWS.CloudFront.DeleteDistribution
(
deleteDistribution
, DeleteDistribution
, ddIfMatch
, ddId
, deleteDistributionResponse
, DeleteDistributionResponse
) where
import Network.AWS.CloudFront.Types
import Network.AWS.CloudFront.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteDistribution = DeleteDistribution'
{ _ddIfMatch :: !(Maybe Text)
, _ddId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteDistribution
:: Text
-> DeleteDistribution
deleteDistribution pId_ =
DeleteDistribution'
{ _ddIfMatch = Nothing
, _ddId = pId_
}
ddIfMatch :: Lens' DeleteDistribution (Maybe Text)
ddIfMatch = lens _ddIfMatch (\ s a -> s{_ddIfMatch = a});
ddId :: Lens' DeleteDistribution Text
ddId = lens _ddId (\ s a -> s{_ddId = a});
instance AWSRequest DeleteDistribution where
type Sv DeleteDistribution = CloudFront
type Rs DeleteDistribution =
DeleteDistributionResponse
request = delete
response = receiveNull DeleteDistributionResponse'
instance ToHeaders DeleteDistribution where
toHeaders DeleteDistribution'{..}
= mconcat ["If-Match" =# _ddIfMatch]
instance ToPath DeleteDistribution where
toPath DeleteDistribution'{..}
= mconcat ["/2015-04-17/distribution/", toBS _ddId]
instance ToQuery DeleteDistribution where
toQuery = const mempty
data DeleteDistributionResponse =
DeleteDistributionResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteDistributionResponse
:: DeleteDistributionResponse
deleteDistributionResponse = DeleteDistributionResponse'