module Network.AWS.GameLift.DescribeVPCPeeringAuthorizations
(
describeVPCPeeringAuthorizations
, DescribeVPCPeeringAuthorizations
, describeVPCPeeringAuthorizationsResponse
, DescribeVPCPeeringAuthorizationsResponse
, dvpcparsVPCPeeringAuthorizations
, dvpcparsResponseStatus
) 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 DescribeVPCPeeringAuthorizations =
DescribeVPCPeeringAuthorizations'
deriving (Eq, Read, Show, Data, Typeable, Generic)
describeVPCPeeringAuthorizations
:: DescribeVPCPeeringAuthorizations
describeVPCPeeringAuthorizations = DescribeVPCPeeringAuthorizations'
instance AWSRequest DescribeVPCPeeringAuthorizations
where
type Rs DescribeVPCPeeringAuthorizations =
DescribeVPCPeeringAuthorizationsResponse
request = postJSON gameLift
response
= receiveJSON
(\ s h x ->
DescribeVPCPeeringAuthorizationsResponse' <$>
(x .?> "VpcPeeringAuthorizations" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeVPCPeeringAuthorizations
where
instance NFData DescribeVPCPeeringAuthorizations
where
instance ToHeaders DescribeVPCPeeringAuthorizations
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("GameLift.DescribeVpcPeeringAuthorizations" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeVPCPeeringAuthorizations
where
toJSON = const (Object mempty)
instance ToPath DescribeVPCPeeringAuthorizations
where
toPath = const "/"
instance ToQuery DescribeVPCPeeringAuthorizations
where
toQuery = const mempty
data DescribeVPCPeeringAuthorizationsResponse = DescribeVPCPeeringAuthorizationsResponse'
{ _dvpcparsVPCPeeringAuthorizations :: !(Maybe [VPCPeeringAuthorization])
, _dvpcparsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeVPCPeeringAuthorizationsResponse
:: Int
-> DescribeVPCPeeringAuthorizationsResponse
describeVPCPeeringAuthorizationsResponse pResponseStatus_ =
DescribeVPCPeeringAuthorizationsResponse'
{ _dvpcparsVPCPeeringAuthorizations = Nothing
, _dvpcparsResponseStatus = pResponseStatus_
}
dvpcparsVPCPeeringAuthorizations :: Lens' DescribeVPCPeeringAuthorizationsResponse [VPCPeeringAuthorization]
dvpcparsVPCPeeringAuthorizations = lens _dvpcparsVPCPeeringAuthorizations (\ s a -> s{_dvpcparsVPCPeeringAuthorizations = a}) . _Default . _Coerce;
dvpcparsResponseStatus :: Lens' DescribeVPCPeeringAuthorizationsResponse Int
dvpcparsResponseStatus = lens _dvpcparsResponseStatus (\ s a -> s{_dvpcparsResponseStatus = a});
instance NFData
DescribeVPCPeeringAuthorizationsResponse
where