{-# 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.GameLift.ListFleets
(
listFleets
, ListFleets
, lfBuildId
, lfNextToken
, lfLimit
, listFleetsResponse
, ListFleetsResponse
, lfrsNextToken
, lfrsFleetIds
, lfrsResponseStatus
) where
import Network.AWS.GameLift.Types
import Network.AWS.GameLift.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListFleets = ListFleets'
{ _lfBuildId :: !(Maybe Text)
, _lfNextToken :: !(Maybe Text)
, _lfLimit :: !(Maybe Nat)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listFleets
:: ListFleets
listFleets =
ListFleets'
{ _lfBuildId = Nothing
, _lfNextToken = Nothing
, _lfLimit = Nothing
}
lfBuildId :: Lens' ListFleets (Maybe Text)
lfBuildId = lens _lfBuildId (\ s a -> s{_lfBuildId = a});
lfNextToken :: Lens' ListFleets (Maybe Text)
lfNextToken = lens _lfNextToken (\ s a -> s{_lfNextToken = a});
lfLimit :: Lens' ListFleets (Maybe Natural)
lfLimit = lens _lfLimit (\ s a -> s{_lfLimit = a}) . mapping _Nat;
instance AWSRequest ListFleets where
type Rs ListFleets = ListFleetsResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
ListFleetsResponse' <$>
(x .?> "NextToken") <*> (x .?> "FleetIds") <*>
(pure (fromEnum s)))
instance Hashable ListFleets
instance NFData ListFleets
instance ToHeaders ListFleets where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.ListFleets" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListFleets where
toJSON ListFleets'{..}
= object
(catMaybes
[("BuildId" .=) <$> _lfBuildId,
("NextToken" .=) <$> _lfNextToken,
("Limit" .=) <$> _lfLimit])
instance ToPath ListFleets where
toPath = const "/"
instance ToQuery ListFleets where
toQuery = const mempty
data ListFleetsResponse = ListFleetsResponse'
{ _lfrsNextToken :: !(Maybe Text)
, _lfrsFleetIds :: !(Maybe (List1 Text))
, _lfrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listFleetsResponse
:: Int
-> ListFleetsResponse
listFleetsResponse pResponseStatus_ =
ListFleetsResponse'
{ _lfrsNextToken = Nothing
, _lfrsFleetIds = Nothing
, _lfrsResponseStatus = pResponseStatus_
}
lfrsNextToken :: Lens' ListFleetsResponse (Maybe Text)
lfrsNextToken = lens _lfrsNextToken (\ s a -> s{_lfrsNextToken = a});
lfrsFleetIds :: Lens' ListFleetsResponse (Maybe (NonEmpty Text))
lfrsFleetIds = lens _lfrsFleetIds (\ s a -> s{_lfrsFleetIds = a}) . mapping _List1;
lfrsResponseStatus :: Lens' ListFleetsResponse Int
lfrsResponseStatus = lens _lfrsResponseStatus (\ s a -> s{_lfrsResponseStatus = a});
instance NFData ListFleetsResponse