module Network.AWS.AppStream.DescribeStacks
(
describeStacks
, DescribeStacks
, dNextToken
, dNames
, describeStacksResponse
, DescribeStacksResponse
, desrsNextToken
, desrsStacks
, desrsResponseStatus
) where
import Network.AWS.AppStream.Types
import Network.AWS.AppStream.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeStacks = DescribeStacks'
{ _dNextToken :: !(Maybe Text)
, _dNames :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStacks
:: DescribeStacks
describeStacks = DescribeStacks' {_dNextToken = Nothing, _dNames = Nothing}
dNextToken :: Lens' DescribeStacks (Maybe Text)
dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});
dNames :: Lens' DescribeStacks [Text]
dNames = lens _dNames (\ s a -> s{_dNames = a}) . _Default . _Coerce;
instance AWSRequest DescribeStacks where
type Rs DescribeStacks = DescribeStacksResponse
request = postJSON appStream
response
= receiveJSON
(\ s h x ->
DescribeStacksResponse' <$>
(x .?> "NextToken") <*> (x .?> "Stacks" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeStacks where
instance NFData DescribeStacks where
instance ToHeaders DescribeStacks where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("PhotonAdminProxyService.DescribeStacks" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeStacks where
toJSON DescribeStacks'{..}
= object
(catMaybes
[("NextToken" .=) <$> _dNextToken,
("Names" .=) <$> _dNames])
instance ToPath DescribeStacks where
toPath = const "/"
instance ToQuery DescribeStacks where
toQuery = const mempty
data DescribeStacksResponse = DescribeStacksResponse'
{ _desrsNextToken :: !(Maybe Text)
, _desrsStacks :: !(Maybe [Stack])
, _desrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStacksResponse
:: Int
-> DescribeStacksResponse
describeStacksResponse pResponseStatus_ =
DescribeStacksResponse'
{ _desrsNextToken = Nothing
, _desrsStacks = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsNextToken :: Lens' DescribeStacksResponse (Maybe Text)
desrsNextToken = lens _desrsNextToken (\ s a -> s{_desrsNextToken = a});
desrsStacks :: Lens' DescribeStacksResponse [Stack]
desrsStacks = lens _desrsStacks (\ s a -> s{_desrsStacks = a}) . _Default . _Coerce;
desrsResponseStatus :: Lens' DescribeStacksResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});
instance NFData DescribeStacksResponse where