{-# 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.DescribeChannel
(
describeChannel
, DescribeChannel
, dId
, describeChannelResponse
, DescribeChannelResponse
, dcrsHlsIngest
, dcrsARN
, dcrsId
, dcrsDescription
, dcrsResponseStatus
) 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 DescribeChannel = DescribeChannel'
{ _dId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeChannel
:: Text
-> DescribeChannel
describeChannel pId_ = DescribeChannel' {_dId = pId_}
dId :: Lens' DescribeChannel Text
dId = lens _dId (\ s a -> s{_dId = a})
instance AWSRequest DescribeChannel where
type Rs DescribeChannel = DescribeChannelResponse
request = get mediaPackage
response
= receiveJSON
(\ s h x ->
DescribeChannelResponse' <$>
(x .?> "hlsIngest") <*> (x .?> "arn") <*>
(x .?> "id")
<*> (x .?> "description")
<*> (pure (fromEnum s)))
instance Hashable DescribeChannel where
instance NFData DescribeChannel where
instance ToHeaders DescribeChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DescribeChannel where
toPath DescribeChannel'{..}
= mconcat ["/channels/", toBS _dId]
instance ToQuery DescribeChannel where
toQuery = const mempty
data DescribeChannelResponse = DescribeChannelResponse'
{ _dcrsHlsIngest :: !(Maybe HlsIngest)
, _dcrsARN :: !(Maybe Text)
, _dcrsId :: !(Maybe Text)
, _dcrsDescription :: !(Maybe Text)
, _dcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeChannelResponse
:: Int
-> DescribeChannelResponse
describeChannelResponse pResponseStatus_ =
DescribeChannelResponse'
{ _dcrsHlsIngest = Nothing
, _dcrsARN = Nothing
, _dcrsId = Nothing
, _dcrsDescription = Nothing
, _dcrsResponseStatus = pResponseStatus_
}
dcrsHlsIngest :: Lens' DescribeChannelResponse (Maybe HlsIngest)
dcrsHlsIngest = lens _dcrsHlsIngest (\ s a -> s{_dcrsHlsIngest = a})
dcrsARN :: Lens' DescribeChannelResponse (Maybe Text)
dcrsARN = lens _dcrsARN (\ s a -> s{_dcrsARN = a})
dcrsId :: Lens' DescribeChannelResponse (Maybe Text)
dcrsId = lens _dcrsId (\ s a -> s{_dcrsId = a})
dcrsDescription :: Lens' DescribeChannelResponse (Maybe Text)
dcrsDescription = lens _dcrsDescription (\ s a -> s{_dcrsDescription = a})
dcrsResponseStatus :: Lens' DescribeChannelResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})
instance NFData DescribeChannelResponse where