{-# 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.DescribeFleetCapacity
(
describeFleetCapacity
, DescribeFleetCapacity
, dfcNextToken
, dfcLimit
, dfcFleetIds
, describeFleetCapacityResponse
, DescribeFleetCapacityResponse
, dfcrsNextToken
, dfcrsFleetCapacity
, dfcrsResponseStatus
) 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 DescribeFleetCapacity = DescribeFleetCapacity'
{ _dfcNextToken :: !(Maybe Text)
, _dfcLimit :: !(Maybe Nat)
, _dfcFleetIds :: !(Maybe (List1 Text))
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeFleetCapacity
:: DescribeFleetCapacity
describeFleetCapacity =
DescribeFleetCapacity'
{ _dfcNextToken = Nothing
, _dfcLimit = Nothing
, _dfcFleetIds = Nothing
}
dfcNextToken :: Lens' DescribeFleetCapacity (Maybe Text)
dfcNextToken = lens _dfcNextToken (\ s a -> s{_dfcNextToken = a});
dfcLimit :: Lens' DescribeFleetCapacity (Maybe Natural)
dfcLimit = lens _dfcLimit (\ s a -> s{_dfcLimit = a}) . mapping _Nat;
dfcFleetIds :: Lens' DescribeFleetCapacity (Maybe (NonEmpty Text))
dfcFleetIds = lens _dfcFleetIds (\ s a -> s{_dfcFleetIds = a}) . mapping _List1;
instance AWSRequest DescribeFleetCapacity where
type Rs DescribeFleetCapacity =
DescribeFleetCapacityResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
DescribeFleetCapacityResponse' <$>
(x .?> "NextToken") <*>
(x .?> "FleetCapacity" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeFleetCapacity
instance NFData DescribeFleetCapacity
instance ToHeaders DescribeFleetCapacity where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DescribeFleetCapacity" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeFleetCapacity where
toJSON DescribeFleetCapacity'{..}
= object
(catMaybes
[("NextToken" .=) <$> _dfcNextToken,
("Limit" .=) <$> _dfcLimit,
("FleetIds" .=) <$> _dfcFleetIds])
instance ToPath DescribeFleetCapacity where
toPath = const "/"
instance ToQuery DescribeFleetCapacity where
toQuery = const mempty
data DescribeFleetCapacityResponse = DescribeFleetCapacityResponse'
{ _dfcrsNextToken :: !(Maybe Text)
, _dfcrsFleetCapacity :: !(Maybe [FleetCapacity])
, _dfcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeFleetCapacityResponse
:: Int
-> DescribeFleetCapacityResponse
describeFleetCapacityResponse pResponseStatus_ =
DescribeFleetCapacityResponse'
{ _dfcrsNextToken = Nothing
, _dfcrsFleetCapacity = Nothing
, _dfcrsResponseStatus = pResponseStatus_
}
dfcrsNextToken :: Lens' DescribeFleetCapacityResponse (Maybe Text)
dfcrsNextToken = lens _dfcrsNextToken (\ s a -> s{_dfcrsNextToken = a});
dfcrsFleetCapacity :: Lens' DescribeFleetCapacityResponse [FleetCapacity]
dfcrsFleetCapacity = lens _dfcrsFleetCapacity (\ s a -> s{_dfcrsFleetCapacity = a}) . _Default . _Coerce;
dfcrsResponseStatus :: Lens' DescribeFleetCapacityResponse Int
dfcrsResponseStatus = lens _dfcrsResponseStatus (\ s a -> s{_dfcrsResponseStatus = a});
instance NFData DescribeFleetCapacityResponse