{-# 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.MediaPackage.UpdateOriginEndpoint
(
updateOriginEndpoint
, UpdateOriginEndpoint
, uoeWhitelist
, uoeHlsPackage
, uoeManifestName
, uoeStartoverWindowSeconds
, uoeDashPackage
, uoeMssPackage
, uoeTimeDelaySeconds
, uoeCmafPackage
, uoeDescription
, uoeId
, updateOriginEndpointResponse
, UpdateOriginEndpointResponse
, uoersWhitelist
, uoersHlsPackage
, uoersARN
, uoersManifestName
, uoersURL
, uoersChannelId
, uoersStartoverWindowSeconds
, uoersDashPackage
, uoersMssPackage
, uoersId
, uoersTimeDelaySeconds
, uoersCmafPackage
, uoersDescription
, uoersResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaPackage.Types
import Network.AWS.MediaPackage.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdateOriginEndpoint = UpdateOriginEndpoint'
{ _uoeWhitelist :: !(Maybe [Text])
, _uoeHlsPackage :: !(Maybe HlsPackage)
, _uoeManifestName :: !(Maybe Text)
, _uoeStartoverWindowSeconds :: !(Maybe Int)
, _uoeDashPackage :: !(Maybe DashPackage)
, _uoeMssPackage :: !(Maybe MssPackage)
, _uoeTimeDelaySeconds :: !(Maybe Int)
, _uoeCmafPackage :: !(Maybe CmafPackageCreateOrUpdateParameters)
, _uoeDescription :: !(Maybe Text)
, _uoeId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateOriginEndpoint
:: Text
-> UpdateOriginEndpoint
updateOriginEndpoint pId_ =
UpdateOriginEndpoint'
{ _uoeWhitelist = Nothing
, _uoeHlsPackage = Nothing
, _uoeManifestName = Nothing
, _uoeStartoverWindowSeconds = Nothing
, _uoeDashPackage = Nothing
, _uoeMssPackage = Nothing
, _uoeTimeDelaySeconds = Nothing
, _uoeCmafPackage = Nothing
, _uoeDescription = Nothing
, _uoeId = pId_
}
uoeWhitelist :: Lens' UpdateOriginEndpoint [Text]
uoeWhitelist = lens _uoeWhitelist (\ s a -> s{_uoeWhitelist = a}) . _Default . _Coerce
uoeHlsPackage :: Lens' UpdateOriginEndpoint (Maybe HlsPackage)
uoeHlsPackage = lens _uoeHlsPackage (\ s a -> s{_uoeHlsPackage = a})
uoeManifestName :: Lens' UpdateOriginEndpoint (Maybe Text)
uoeManifestName = lens _uoeManifestName (\ s a -> s{_uoeManifestName = a})
uoeStartoverWindowSeconds :: Lens' UpdateOriginEndpoint (Maybe Int)
uoeStartoverWindowSeconds = lens _uoeStartoverWindowSeconds (\ s a -> s{_uoeStartoverWindowSeconds = a})
uoeDashPackage :: Lens' UpdateOriginEndpoint (Maybe DashPackage)
uoeDashPackage = lens _uoeDashPackage (\ s a -> s{_uoeDashPackage = a})
uoeMssPackage :: Lens' UpdateOriginEndpoint (Maybe MssPackage)
uoeMssPackage = lens _uoeMssPackage (\ s a -> s{_uoeMssPackage = a})
uoeTimeDelaySeconds :: Lens' UpdateOriginEndpoint (Maybe Int)
uoeTimeDelaySeconds = lens _uoeTimeDelaySeconds (\ s a -> s{_uoeTimeDelaySeconds = a})
uoeCmafPackage :: Lens' UpdateOriginEndpoint (Maybe CmafPackageCreateOrUpdateParameters)
uoeCmafPackage = lens _uoeCmafPackage (\ s a -> s{_uoeCmafPackage = a})
uoeDescription :: Lens' UpdateOriginEndpoint (Maybe Text)
uoeDescription = lens _uoeDescription (\ s a -> s{_uoeDescription = a})
uoeId :: Lens' UpdateOriginEndpoint Text
uoeId = lens _uoeId (\ s a -> s{_uoeId = a})
instance AWSRequest UpdateOriginEndpoint where
type Rs UpdateOriginEndpoint =
UpdateOriginEndpointResponse
request = putJSON mediaPackage
response
= receiveJSON
(\ s h x ->
UpdateOriginEndpointResponse' <$>
(x .?> "whitelist" .!@ mempty) <*>
(x .?> "hlsPackage")
<*> (x .?> "arn")
<*> (x .?> "manifestName")
<*> (x .?> "url")
<*> (x .?> "channelId")
<*> (x .?> "startoverWindowSeconds")
<*> (x .?> "dashPackage")
<*> (x .?> "mssPackage")
<*> (x .?> "id")
<*> (x .?> "timeDelaySeconds")
<*> (x .?> "cmafPackage")
<*> (x .?> "description")
<*> (pure (fromEnum s)))
instance Hashable UpdateOriginEndpoint where
instance NFData UpdateOriginEndpoint where
instance ToHeaders UpdateOriginEndpoint where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateOriginEndpoint where
toJSON UpdateOriginEndpoint'{..}
= object
(catMaybes
[("whitelist" .=) <$> _uoeWhitelist,
("hlsPackage" .=) <$> _uoeHlsPackage,
("manifestName" .=) <$> _uoeManifestName,
("startoverWindowSeconds" .=) <$>
_uoeStartoverWindowSeconds,
("dashPackage" .=) <$> _uoeDashPackage,
("mssPackage" .=) <$> _uoeMssPackage,
("timeDelaySeconds" .=) <$> _uoeTimeDelaySeconds,
("cmafPackage" .=) <$> _uoeCmafPackage,
("description" .=) <$> _uoeDescription])
instance ToPath UpdateOriginEndpoint where
toPath UpdateOriginEndpoint'{..}
= mconcat ["/origin_endpoints/", toBS _uoeId]
instance ToQuery UpdateOriginEndpoint where
toQuery = const mempty
data UpdateOriginEndpointResponse = UpdateOriginEndpointResponse'
{ _uoersWhitelist :: !(Maybe [Text])
, _uoersHlsPackage :: !(Maybe HlsPackage)
, _uoersARN :: !(Maybe Text)
, _uoersManifestName :: !(Maybe Text)
, _uoersURL :: !(Maybe Text)
, _uoersChannelId :: !(Maybe Text)
, _uoersStartoverWindowSeconds :: !(Maybe Int)
, _uoersDashPackage :: !(Maybe DashPackage)
, _uoersMssPackage :: !(Maybe MssPackage)
, _uoersId :: !(Maybe Text)
, _uoersTimeDelaySeconds :: !(Maybe Int)
, _uoersCmafPackage :: !(Maybe CmafPackage)
, _uoersDescription :: !(Maybe Text)
, _uoersResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateOriginEndpointResponse
:: Int
-> UpdateOriginEndpointResponse
updateOriginEndpointResponse pResponseStatus_ =
UpdateOriginEndpointResponse'
{ _uoersWhitelist = Nothing
, _uoersHlsPackage = Nothing
, _uoersARN = Nothing
, _uoersManifestName = Nothing
, _uoersURL = Nothing
, _uoersChannelId = Nothing
, _uoersStartoverWindowSeconds = Nothing
, _uoersDashPackage = Nothing
, _uoersMssPackage = Nothing
, _uoersId = Nothing
, _uoersTimeDelaySeconds = Nothing
, _uoersCmafPackage = Nothing
, _uoersDescription = Nothing
, _uoersResponseStatus = pResponseStatus_
}
uoersWhitelist :: Lens' UpdateOriginEndpointResponse [Text]
uoersWhitelist = lens _uoersWhitelist (\ s a -> s{_uoersWhitelist = a}) . _Default . _Coerce
uoersHlsPackage :: Lens' UpdateOriginEndpointResponse (Maybe HlsPackage)
uoersHlsPackage = lens _uoersHlsPackage (\ s a -> s{_uoersHlsPackage = a})
uoersARN :: Lens' UpdateOriginEndpointResponse (Maybe Text)
uoersARN = lens _uoersARN (\ s a -> s{_uoersARN = a})
uoersManifestName :: Lens' UpdateOriginEndpointResponse (Maybe Text)
uoersManifestName = lens _uoersManifestName (\ s a -> s{_uoersManifestName = a})
uoersURL :: Lens' UpdateOriginEndpointResponse (Maybe Text)
uoersURL = lens _uoersURL (\ s a -> s{_uoersURL = a})
uoersChannelId :: Lens' UpdateOriginEndpointResponse (Maybe Text)
uoersChannelId = lens _uoersChannelId (\ s a -> s{_uoersChannelId = a})
uoersStartoverWindowSeconds :: Lens' UpdateOriginEndpointResponse (Maybe Int)
uoersStartoverWindowSeconds = lens _uoersStartoverWindowSeconds (\ s a -> s{_uoersStartoverWindowSeconds = a})
uoersDashPackage :: Lens' UpdateOriginEndpointResponse (Maybe DashPackage)
uoersDashPackage = lens _uoersDashPackage (\ s a -> s{_uoersDashPackage = a})
uoersMssPackage :: Lens' UpdateOriginEndpointResponse (Maybe MssPackage)
uoersMssPackage = lens _uoersMssPackage (\ s a -> s{_uoersMssPackage = a})
uoersId :: Lens' UpdateOriginEndpointResponse (Maybe Text)
uoersId = lens _uoersId (\ s a -> s{_uoersId = a})
uoersTimeDelaySeconds :: Lens' UpdateOriginEndpointResponse (Maybe Int)
uoersTimeDelaySeconds = lens _uoersTimeDelaySeconds (\ s a -> s{_uoersTimeDelaySeconds = a})
uoersCmafPackage :: Lens' UpdateOriginEndpointResponse (Maybe CmafPackage)
uoersCmafPackage = lens _uoersCmafPackage (\ s a -> s{_uoersCmafPackage = a})
uoersDescription :: Lens' UpdateOriginEndpointResponse (Maybe Text)
uoersDescription = lens _uoersDescription (\ s a -> s{_uoersDescription = a})
uoersResponseStatus :: Lens' UpdateOriginEndpointResponse Int
uoersResponseStatus = lens _uoersResponseStatus (\ s a -> s{_uoersResponseStatus = a})
instance NFData UpdateOriginEndpointResponse where