module Network.AWS.CloudFront.DeleteStreamingDistribution
(
deleteStreamingDistribution
, DeleteStreamingDistribution
, dsdIfMatch
, dsdId
, deleteStreamingDistributionResponse
, DeleteStreamingDistributionResponse
) 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 DeleteStreamingDistribution = DeleteStreamingDistribution'
{ _dsdIfMatch :: !(Maybe Text)
, _dsdId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteStreamingDistribution
:: Text
-> DeleteStreamingDistribution
deleteStreamingDistribution pId_ =
DeleteStreamingDistribution'
{ _dsdIfMatch = Nothing
, _dsdId = pId_
}
dsdIfMatch :: Lens' DeleteStreamingDistribution (Maybe Text)
dsdIfMatch = lens _dsdIfMatch (\ s a -> s{_dsdIfMatch = a});
dsdId :: Lens' DeleteStreamingDistribution Text
dsdId = lens _dsdId (\ s a -> s{_dsdId = a});
instance AWSRequest DeleteStreamingDistribution where
type Rs DeleteStreamingDistribution =
DeleteStreamingDistributionResponse
request = delete cloudFront
response
= receiveNull DeleteStreamingDistributionResponse'
instance ToHeaders DeleteStreamingDistribution where
toHeaders DeleteStreamingDistribution'{..}
= mconcat ["If-Match" =# _dsdIfMatch]
instance ToPath DeleteStreamingDistribution where
toPath DeleteStreamingDistribution'{..}
= mconcat
["/2015-07-27/streaming-distribution/", toBS _dsdId]
instance ToQuery DeleteStreamingDistribution where
toQuery = const mempty
data DeleteStreamingDistributionResponse =
DeleteStreamingDistributionResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteStreamingDistributionResponse
:: DeleteStreamingDistributionResponse
deleteStreamingDistributionResponse = DeleteStreamingDistributionResponse'