{-# 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.RotateChannelCredentials
(
rotateChannelCredentials
, RotateChannelCredentials
, rccId
, rotateChannelCredentialsResponse
, RotateChannelCredentialsResponse
, rccrsHlsIngest
, rccrsARN
, rccrsId
, rccrsDescription
, rccrsResponseStatus
) 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
newtype RotateChannelCredentials = RotateChannelCredentials'
{ _rccId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rotateChannelCredentials
:: Text
-> RotateChannelCredentials
rotateChannelCredentials pId_ = RotateChannelCredentials' {_rccId = pId_}
rccId :: Lens' RotateChannelCredentials Text
rccId = lens _rccId (\ s a -> s{_rccId = a})
instance AWSRequest RotateChannelCredentials where
type Rs RotateChannelCredentials =
RotateChannelCredentialsResponse
request = putJSON mediaPackage
response
= receiveJSON
(\ s h x ->
RotateChannelCredentialsResponse' <$>
(x .?> "hlsIngest") <*> (x .?> "arn") <*>
(x .?> "id")
<*> (x .?> "description")
<*> (pure (fromEnum s)))
instance Hashable RotateChannelCredentials where
instance NFData RotateChannelCredentials where
instance ToHeaders RotateChannelCredentials where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RotateChannelCredentials where
toJSON = const (Object mempty)
instance ToPath RotateChannelCredentials where
toPath RotateChannelCredentials'{..}
= mconcat ["/channels/", toBS _rccId, "/credentials"]
instance ToQuery RotateChannelCredentials where
toQuery = const mempty
data RotateChannelCredentialsResponse = RotateChannelCredentialsResponse'
{ _rccrsHlsIngest :: !(Maybe HlsIngest)
, _rccrsARN :: !(Maybe Text)
, _rccrsId :: !(Maybe Text)
, _rccrsDescription :: !(Maybe Text)
, _rccrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rotateChannelCredentialsResponse
:: Int
-> RotateChannelCredentialsResponse
rotateChannelCredentialsResponse pResponseStatus_ =
RotateChannelCredentialsResponse'
{ _rccrsHlsIngest = Nothing
, _rccrsARN = Nothing
, _rccrsId = Nothing
, _rccrsDescription = Nothing
, _rccrsResponseStatus = pResponseStatus_
}
rccrsHlsIngest :: Lens' RotateChannelCredentialsResponse (Maybe HlsIngest)
rccrsHlsIngest = lens _rccrsHlsIngest (\ s a -> s{_rccrsHlsIngest = a})
rccrsARN :: Lens' RotateChannelCredentialsResponse (Maybe Text)
rccrsARN = lens _rccrsARN (\ s a -> s{_rccrsARN = a})
rccrsId :: Lens' RotateChannelCredentialsResponse (Maybe Text)
rccrsId = lens _rccrsId (\ s a -> s{_rccrsId = a})
rccrsDescription :: Lens' RotateChannelCredentialsResponse (Maybe Text)
rccrsDescription = lens _rccrsDescription (\ s a -> s{_rccrsDescription = a})
rccrsResponseStatus :: Lens' RotateChannelCredentialsResponse Int
rccrsResponseStatus = lens _rccrsResponseStatus (\ s a -> s{_rccrsResponseStatus = a})
instance NFData RotateChannelCredentialsResponse
where