{-# 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.AppStream.DescribeFleets
(
describeFleets
, DescribeFleets
, dfNextToken
, dfNames
, describeFleetsResponse
, DescribeFleetsResponse
, dfsrsNextToken
, dfsrsFleets
, dfsrsResponseStatus
) 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 DescribeFleets = DescribeFleets'
{ _dfNextToken :: !(Maybe Text)
, _dfNames :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeFleets
:: DescribeFleets
describeFleets = DescribeFleets' {_dfNextToken = Nothing, _dfNames = Nothing}
dfNextToken :: Lens' DescribeFleets (Maybe Text)
dfNextToken = lens _dfNextToken (\ s a -> s{_dfNextToken = a})
dfNames :: Lens' DescribeFleets [Text]
dfNames = lens _dfNames (\ s a -> s{_dfNames = a}) . _Default . _Coerce
instance AWSRequest DescribeFleets where
type Rs DescribeFleets = DescribeFleetsResponse
request = postJSON appStream
response
= receiveJSON
(\ s h x ->
DescribeFleetsResponse' <$>
(x .?> "NextToken") <*> (x .?> "Fleets" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeFleets where
instance NFData DescribeFleets where
instance ToHeaders DescribeFleets where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("PhotonAdminProxyService.DescribeFleets" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeFleets where
toJSON DescribeFleets'{..}
= object
(catMaybes
[("NextToken" .=) <$> _dfNextToken,
("Names" .=) <$> _dfNames])
instance ToPath DescribeFleets where
toPath = const "/"
instance ToQuery DescribeFleets where
toQuery = const mempty
data DescribeFleetsResponse = DescribeFleetsResponse'
{ _dfsrsNextToken :: !(Maybe Text)
, _dfsrsFleets :: !(Maybe [Fleet])
, _dfsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeFleetsResponse
:: Int
-> DescribeFleetsResponse
describeFleetsResponse pResponseStatus_ =
DescribeFleetsResponse'
{ _dfsrsNextToken = Nothing
, _dfsrsFleets = Nothing
, _dfsrsResponseStatus = pResponseStatus_
}
dfsrsNextToken :: Lens' DescribeFleetsResponse (Maybe Text)
dfsrsNextToken = lens _dfsrsNextToken (\ s a -> s{_dfsrsNextToken = a})
dfsrsFleets :: Lens' DescribeFleetsResponse [Fleet]
dfsrsFleets = lens _dfsrsFleets (\ s a -> s{_dfsrsFleets = a}) . _Default . _Coerce
dfsrsResponseStatus :: Lens' DescribeFleetsResponse Int
dfsrsResponseStatus = lens _dfsrsResponseStatus (\ s a -> s{_dfsrsResponseStatus = a})
instance NFData DescribeFleetsResponse where