{-# 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.ListAssociatedFleets
(
listAssociatedFleets
, ListAssociatedFleets
, lafNextToken
, lafStackName
, listAssociatedFleetsResponse
, ListAssociatedFleetsResponse
, lafrsNextToken
, lafrsNames
, lafrsResponseStatus
) 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 ListAssociatedFleets = ListAssociatedFleets'
{ _lafNextToken :: !(Maybe Text)
, _lafStackName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listAssociatedFleets
:: Text
-> ListAssociatedFleets
listAssociatedFleets pStackName_ =
ListAssociatedFleets'
{ _lafNextToken = Nothing
, _lafStackName = pStackName_
}
lafNextToken :: Lens' ListAssociatedFleets (Maybe Text)
lafNextToken = lens _lafNextToken (\ s a -> s{_lafNextToken = a});
lafStackName :: Lens' ListAssociatedFleets Text
lafStackName = lens _lafStackName (\ s a -> s{_lafStackName = a});
instance AWSRequest ListAssociatedFleets where
type Rs ListAssociatedFleets =
ListAssociatedFleetsResponse
request = postJSON appStream
response
= receiveJSON
(\ s h x ->
ListAssociatedFleetsResponse' <$>
(x .?> "NextToken") <*> (x .?> "Names" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListAssociatedFleets
instance NFData ListAssociatedFleets
instance ToHeaders ListAssociatedFleets where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("PhotonAdminProxyService.ListAssociatedFleets" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListAssociatedFleets where
toJSON ListAssociatedFleets'{..}
= object
(catMaybes
[("NextToken" .=) <$> _lafNextToken,
Just ("StackName" .= _lafStackName)])
instance ToPath ListAssociatedFleets where
toPath = const "/"
instance ToQuery ListAssociatedFleets where
toQuery = const mempty
data ListAssociatedFleetsResponse = ListAssociatedFleetsResponse'
{ _lafrsNextToken :: !(Maybe Text)
, _lafrsNames :: !(Maybe [Text])
, _lafrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listAssociatedFleetsResponse
:: Int
-> ListAssociatedFleetsResponse
listAssociatedFleetsResponse pResponseStatus_ =
ListAssociatedFleetsResponse'
{ _lafrsNextToken = Nothing
, _lafrsNames = Nothing
, _lafrsResponseStatus = pResponseStatus_
}
lafrsNextToken :: Lens' ListAssociatedFleetsResponse (Maybe Text)
lafrsNextToken = lens _lafrsNextToken (\ s a -> s{_lafrsNextToken = a});
lafrsNames :: Lens' ListAssociatedFleetsResponse [Text]
lafrsNames = lens _lafrsNames (\ s a -> s{_lafrsNames = a}) . _Default . _Coerce;
lafrsResponseStatus :: Lens' ListAssociatedFleetsResponse Int
lafrsResponseStatus = lens _lafrsResponseStatus (\ s a -> s{_lafrsResponseStatus = a});
instance NFData ListAssociatedFleetsResponse