{-# 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.CreateChannel
(
createChannel
, CreateChannel
, ccDescription
, ccId
, createChannelResponse
, CreateChannelResponse
, ccrsHlsIngest
, ccrsARN
, ccrsId
, ccrsDescription
, ccrsResponseStatus
) 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 CreateChannel = CreateChannel'
{ _ccDescription :: !(Maybe Text)
, _ccId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createChannel
:: Text
-> CreateChannel
createChannel pId_ = CreateChannel' {_ccDescription = Nothing, _ccId = pId_}
ccDescription :: Lens' CreateChannel (Maybe Text)
ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a})
ccId :: Lens' CreateChannel Text
ccId = lens _ccId (\ s a -> s{_ccId = a})
instance AWSRequest CreateChannel where
type Rs CreateChannel = CreateChannelResponse
request = postJSON mediaPackage
response
= receiveJSON
(\ s h x ->
CreateChannelResponse' <$>
(x .?> "hlsIngest") <*> (x .?> "arn") <*>
(x .?> "id")
<*> (x .?> "description")
<*> (pure (fromEnum s)))
instance Hashable CreateChannel where
instance NFData CreateChannel where
instance ToHeaders CreateChannel where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateChannel where
toJSON CreateChannel'{..}
= object
(catMaybes
[("description" .=) <$> _ccDescription,
Just ("id" .= _ccId)])
instance ToPath CreateChannel where
toPath = const "/channels"
instance ToQuery CreateChannel where
toQuery = const mempty
data CreateChannelResponse = CreateChannelResponse'
{ _ccrsHlsIngest :: !(Maybe HlsIngest)
, _ccrsARN :: !(Maybe Text)
, _ccrsId :: !(Maybe Text)
, _ccrsDescription :: !(Maybe Text)
, _ccrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createChannelResponse
:: Int
-> CreateChannelResponse
createChannelResponse pResponseStatus_ =
CreateChannelResponse'
{ _ccrsHlsIngest = Nothing
, _ccrsARN = Nothing
, _ccrsId = Nothing
, _ccrsDescription = Nothing
, _ccrsResponseStatus = pResponseStatus_
}
ccrsHlsIngest :: Lens' CreateChannelResponse (Maybe HlsIngest)
ccrsHlsIngest = lens _ccrsHlsIngest (\ s a -> s{_ccrsHlsIngest = a})
ccrsARN :: Lens' CreateChannelResponse (Maybe Text)
ccrsARN = lens _ccrsARN (\ s a -> s{_ccrsARN = a})
ccrsId :: Lens' CreateChannelResponse (Maybe Text)
ccrsId = lens _ccrsId (\ s a -> s{_ccrsId = a})
ccrsDescription :: Lens' CreateChannelResponse (Maybe Text)
ccrsDescription = lens _ccrsDescription (\ s a -> s{_ccrsDescription = a})
ccrsResponseStatus :: Lens' CreateChannelResponse Int
ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})
instance NFData CreateChannelResponse where