module Network.AWS.GameLift.DescribeEC2InstanceLimits
(
describeEC2InstanceLimits
, DescribeEC2InstanceLimits
, deilEC2InstanceType
, describeEC2InstanceLimitsResponse
, DescribeEC2InstanceLimitsResponse
, deilrsEC2InstanceLimits
, deilrsResponseStatus
) 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
newtype DescribeEC2InstanceLimits = DescribeEC2InstanceLimits'
{ _deilEC2InstanceType :: Maybe EC2InstanceType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEC2InstanceLimits
:: DescribeEC2InstanceLimits
describeEC2InstanceLimits =
DescribeEC2InstanceLimits'
{ _deilEC2InstanceType = Nothing
}
deilEC2InstanceType :: Lens' DescribeEC2InstanceLimits (Maybe EC2InstanceType)
deilEC2InstanceType = lens _deilEC2InstanceType (\ s a -> s{_deilEC2InstanceType = a});
instance AWSRequest DescribeEC2InstanceLimits where
type Rs DescribeEC2InstanceLimits =
DescribeEC2InstanceLimitsResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
DescribeEC2InstanceLimitsResponse' <$>
(x .?> "EC2InstanceLimits" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeEC2InstanceLimits
instance NFData DescribeEC2InstanceLimits
instance ToHeaders DescribeEC2InstanceLimits where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DescribeEC2InstanceLimits" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeEC2InstanceLimits where
toJSON DescribeEC2InstanceLimits'{..}
= object
(catMaybes
[("EC2InstanceType" .=) <$> _deilEC2InstanceType])
instance ToPath DescribeEC2InstanceLimits where
toPath = const "/"
instance ToQuery DescribeEC2InstanceLimits where
toQuery = const mempty
data DescribeEC2InstanceLimitsResponse = DescribeEC2InstanceLimitsResponse'
{ _deilrsEC2InstanceLimits :: !(Maybe [EC2InstanceLimit])
, _deilrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEC2InstanceLimitsResponse
:: Int
-> DescribeEC2InstanceLimitsResponse
describeEC2InstanceLimitsResponse pResponseStatus_ =
DescribeEC2InstanceLimitsResponse'
{ _deilrsEC2InstanceLimits = Nothing
, _deilrsResponseStatus = pResponseStatus_
}
deilrsEC2InstanceLimits :: Lens' DescribeEC2InstanceLimitsResponse [EC2InstanceLimit]
deilrsEC2InstanceLimits = lens _deilrsEC2InstanceLimits (\ s a -> s{_deilrsEC2InstanceLimits = a}) . _Default . _Coerce;
deilrsResponseStatus :: Lens' DescribeEC2InstanceLimitsResponse Int
deilrsResponseStatus = lens _deilrsResponseStatus (\ s a -> s{_deilrsResponseStatus = a});
instance NFData DescribeEC2InstanceLimitsResponse