module Network.AWS.CloudFront.DeleteStreamingDistribution
(
DeleteStreamingDistribution
, deleteStreamingDistribution
, dsdId
, dsdIfMatch
, DeleteStreamingDistributionResponse
, deleteStreamingDistributionResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestXML
import Network.AWS.CloudFront.Types
import qualified GHC.Exts
data DeleteStreamingDistribution = DeleteStreamingDistribution
{ _dsdId :: Text
, _dsdIfMatch :: Maybe Text
} deriving (Eq, Ord, Show)
deleteStreamingDistribution :: Text
-> DeleteStreamingDistribution
deleteStreamingDistribution p1 = DeleteStreamingDistribution
{ _dsdId = p1
, _dsdIfMatch = Nothing
}
dsdId :: Lens' DeleteStreamingDistribution Text
dsdId = lens _dsdId (\s a -> s { _dsdId = a })
dsdIfMatch :: Lens' DeleteStreamingDistribution (Maybe Text)
dsdIfMatch = lens _dsdIfMatch (\s a -> s { _dsdIfMatch = a })
data DeleteStreamingDistributionResponse = DeleteStreamingDistributionResponse
deriving (Eq, Ord, Show, Generic)
deleteStreamingDistributionResponse :: DeleteStreamingDistributionResponse
deleteStreamingDistributionResponse = DeleteStreamingDistributionResponse
instance ToPath DeleteStreamingDistribution where
toPath DeleteStreamingDistribution{..} = mconcat
[ "/2014-10-21/streaming-distribution/"
, toText _dsdId
]
instance ToQuery DeleteStreamingDistribution where
toQuery = const mempty
instance ToHeaders DeleteStreamingDistribution where
toHeaders DeleteStreamingDistribution{..} = mconcat
[ "If-Match" =: _dsdIfMatch
]
instance ToXMLRoot DeleteStreamingDistribution where
toXMLRoot = const (namespaced ns "DeleteStreamingDistribution" [])
instance ToXML DeleteStreamingDistribution
instance AWSRequest DeleteStreamingDistribution where
type Sv DeleteStreamingDistribution = CloudFront
type Rs DeleteStreamingDistribution = DeleteStreamingDistributionResponse
request = delete
response = nullResponse DeleteStreamingDistributionResponse