{-# 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.DescribeFleetAttributes
(
describeFleetAttributes
, DescribeFleetAttributes
, dfaNextToken
, dfaLimit
, dfaFleetIds
, describeFleetAttributesResponse
, DescribeFleetAttributesResponse
, dfarsNextToken
, dfarsFleetAttributes
, dfarsResponseStatus
) 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 DescribeFleetAttributes = DescribeFleetAttributes'
{ _dfaNextToken :: !(Maybe Text)
, _dfaLimit :: !(Maybe Nat)
, _dfaFleetIds :: !(Maybe (List1 Text))
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeFleetAttributes
:: DescribeFleetAttributes
describeFleetAttributes =
DescribeFleetAttributes'
{ _dfaNextToken = Nothing
, _dfaLimit = Nothing
, _dfaFleetIds = Nothing
}
dfaNextToken :: Lens' DescribeFleetAttributes (Maybe Text)
dfaNextToken = lens _dfaNextToken (\ s a -> s{_dfaNextToken = a});
dfaLimit :: Lens' DescribeFleetAttributes (Maybe Natural)
dfaLimit = lens _dfaLimit (\ s a -> s{_dfaLimit = a}) . mapping _Nat;
dfaFleetIds :: Lens' DescribeFleetAttributes (Maybe (NonEmpty Text))
dfaFleetIds = lens _dfaFleetIds (\ s a -> s{_dfaFleetIds = a}) . mapping _List1;
instance AWSRequest DescribeFleetAttributes where
type Rs DescribeFleetAttributes =
DescribeFleetAttributesResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
DescribeFleetAttributesResponse' <$>
(x .?> "NextToken") <*>
(x .?> "FleetAttributes" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeFleetAttributes
instance NFData DescribeFleetAttributes
instance ToHeaders DescribeFleetAttributes where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DescribeFleetAttributes" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeFleetAttributes where
toJSON DescribeFleetAttributes'{..}
= object
(catMaybes
[("NextToken" .=) <$> _dfaNextToken,
("Limit" .=) <$> _dfaLimit,
("FleetIds" .=) <$> _dfaFleetIds])
instance ToPath DescribeFleetAttributes where
toPath = const "/"
instance ToQuery DescribeFleetAttributes where
toQuery = const mempty
data DescribeFleetAttributesResponse = DescribeFleetAttributesResponse'
{ _dfarsNextToken :: !(Maybe Text)
, _dfarsFleetAttributes :: !(Maybe [FleetAttributes])
, _dfarsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeFleetAttributesResponse
:: Int
-> DescribeFleetAttributesResponse
describeFleetAttributesResponse pResponseStatus_ =
DescribeFleetAttributesResponse'
{ _dfarsNextToken = Nothing
, _dfarsFleetAttributes = Nothing
, _dfarsResponseStatus = pResponseStatus_
}
dfarsNextToken :: Lens' DescribeFleetAttributesResponse (Maybe Text)
dfarsNextToken = lens _dfarsNextToken (\ s a -> s{_dfarsNextToken = a});
dfarsFleetAttributes :: Lens' DescribeFleetAttributesResponse [FleetAttributes]
dfarsFleetAttributes = lens _dfarsFleetAttributes (\ s a -> s{_dfarsFleetAttributes = a}) . _Default . _Coerce;
dfarsResponseStatus :: Lens' DescribeFleetAttributesResponse Int
dfarsResponseStatus = lens _dfarsResponseStatus (\ s a -> s{_dfarsResponseStatus = a});
instance NFData DescribeFleetAttributesResponse