module Network.AWS.CloudFront.UpdateStreamingDistribution
(
UpdateStreamingDistribution
, updateStreamingDistribution
, usdId
, usdIfMatch
, usdStreamingDistributionConfig
, UpdateStreamingDistributionResponse
, updateStreamingDistributionResponse
, usdrETag
, usdrStreamingDistribution
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestXML
import Network.AWS.CloudFront.Types
import qualified GHC.Exts
data UpdateStreamingDistribution = UpdateStreamingDistribution
{ _usdId :: Text
, _usdIfMatch :: Maybe Text
, _usdStreamingDistributionConfig :: StreamingDistributionConfig
} deriving (Eq, Show)
updateStreamingDistribution :: StreamingDistributionConfig
-> Text
-> UpdateStreamingDistribution
updateStreamingDistribution p1 p2 = UpdateStreamingDistribution
{ _usdStreamingDistributionConfig = p1
, _usdId = p2
, _usdIfMatch = Nothing
}
usdId :: Lens' UpdateStreamingDistribution Text
usdId = lens _usdId (\s a -> s { _usdId = a })
usdIfMatch :: Lens' UpdateStreamingDistribution (Maybe Text)
usdIfMatch = lens _usdIfMatch (\s a -> s { _usdIfMatch = a })
usdStreamingDistributionConfig :: Lens' UpdateStreamingDistribution StreamingDistributionConfig
usdStreamingDistributionConfig =
lens _usdStreamingDistributionConfig
(\s a -> s { _usdStreamingDistributionConfig = a })
data UpdateStreamingDistributionResponse = UpdateStreamingDistributionResponse
{ _usdrETag :: Maybe Text
, _usdrStreamingDistribution :: Maybe StreamingDistribution
} deriving (Eq, Show)
updateStreamingDistributionResponse :: UpdateStreamingDistributionResponse
updateStreamingDistributionResponse = UpdateStreamingDistributionResponse
{ _usdrStreamingDistribution = Nothing
, _usdrETag = Nothing
}
usdrETag :: Lens' UpdateStreamingDistributionResponse (Maybe Text)
usdrETag = lens _usdrETag (\s a -> s { _usdrETag = a })
usdrStreamingDistribution :: Lens' UpdateStreamingDistributionResponse (Maybe StreamingDistribution)
usdrStreamingDistribution =
lens _usdrStreamingDistribution
(\s a -> s { _usdrStreamingDistribution = a })
instance ToPath UpdateStreamingDistribution where
toPath UpdateStreamingDistribution{..} = mconcat
[ "/2014-05-31/streaming-distribution/"
, toText _usdId
, "/config"
]
instance ToQuery UpdateStreamingDistribution where
toQuery = const mempty
instance ToHeaders UpdateStreamingDistribution where
toHeaders UpdateStreamingDistribution{..} = mconcat
[ "If-Match" =: _usdIfMatch
]
instance ToXMLRoot UpdateStreamingDistribution where
toXMLRoot UpdateStreamingDistribution{..} = namespaced ns "UpdateStreamingDistribution"
[ "StreamingDistributionConfig" =@ _usdStreamingDistributionConfig
]
instance ToXML UpdateStreamingDistribution
instance AWSRequest UpdateStreamingDistribution where
type Sv UpdateStreamingDistribution = CloudFront
type Rs UpdateStreamingDistribution = UpdateStreamingDistributionResponse
request = put
response = xmlHeaderResponse $ \h x -> UpdateStreamingDistributionResponse
<$> h ~:? "ETag"
<*> x .@? "StreamingDistribution"